BBS in a Box 15

home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 15 / BBS in a box XV-2.iso / Files II / Prog / M / MacPerl 4.13 appl.sit / MacPerl ƒ / lib / macperldb.pl < prev next >
MacBinary | 1993-10-23 | 16.5 KB | [TEXT/MPS ]
open in:
MacOS 8.1 extracted |
Win98 extracted |
DOS extracted
view JSON data |
view as text

This file was processed as: MacBinary (archive/macBinary).

You can browse this item here: macperldb.pl
Confidence	Program	Detection	Match Type	Support
`10%`	dexvert	MacBinary `(archive/macBinary)`	fallback	Supported
`1%`	dexvert	Claris Works palette files `(other/clarisWorksPaletteFiles)`	ext	Unsupported
`1%`	dexvert	Text File `(text/txt)`	fallback	Supported
`100%`	file	MacBinary II, inited, Sat Oct 23 01:19:08 1993, modified Sat Oct 23 01:19:08 1993, creator 'MPS ', type ASCII, 16178 bytes "macperldb.pl" , at 0x3fb2 428 bytes resource	default (weak)
`99%`	file	data	default
`74%`	TrID	Macintosh plain text (MacBinary)	default
`25%`	TrID	MacBinary 2	default (weak)
`100%`	siegfried	fmt/1762 MacBinary (II)	default
`100%`	lsar	MacBinary	default
id metadata
key	value
macFileType	`[TEXT]`
macFileCreator	`[MPS ]`
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0c 6d 61 63 70 65 72 | 6c 64 62 2e 70 6c 00 00 |..macper|ldb.pl..|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 50 53 | 20 01 00 00 00 00 00 00 |.TEXTMPS| .......|
|00000050| 00 00 00 00 00 3f 32 00 | 00 01 ac a8 ee 6f 4c a8 |.....?2.|.....oL.|
|00000060| ee 6f 4c 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.oL.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 f6 c3 00 00 |........|........|
|00000080| 70 61 63 6b 61 67 65 20 | 44 42 3b 0d 0d 23 20 6d |package |DB;..# m|
|00000090| 6f 64 69 66 69 65 64 20 | 50 65 72 6c 20 64 65 62 |odified |Perl deb|
|000000a0| 75 67 67 65 72 2c 20 74 | 6f 20 62 65 20 72 75 6e |ugger, t|o be run|
|000000b0| 20 66 72 6f 6d 20 45 6d | 61 63 73 20 69 6e 20 70 | from Em|acs in p|
|000000c0| 65 72 6c 64 62 2d 6d 6f | 64 65 0d 23 20 52 61 79 |erldb-mo|de.# Ray|
|000000d0| 20 4c 69 73 63 68 6e 65 | 72 20 28 75 75 6e 65 74 | Lischne|r (uunet|
|000000e0| 21 6d 6e 74 67 66 78 21 | 6c 69 73 63 68 29 20 61 |!mntgfx!|lisch) a|
|000000f0| 73 20 6f 66 20 35 20 4e | 6f 76 20 31 39 39 30 0d |s of 5 N|ov 1990.|
|00000100| 23 20 4a 6f 68 61 6e 20 | 56 72 6f 6d 61 6e 73 20 |# Johan |Vromans |
|00000110| 2d 2d 20 75 70 67 72 61 | 64 65 20 74 6f 20 34 2e |-- upgra|de to 4.|
|00000120| 30 20 70 6c 20 31 30 0d | 0d 24 68 65 61 64 65 72 |0 pl 10.|.$header|
|00000130| 20 3d 20 27 24 52 43 53 | 66 69 6c 65 3a 20 70 65 | = '$RCS|file: pe|
|00000140| 72 6c 64 62 2e 70 6c 2c | 76 20 24 24 52 65 76 69 |rldb.pl,|v $$Revi|
|00000150| 73 69 6f 6e 3a 20 34 2e | 30 2e 31 2e 33 20 24 24 |sion: 4.|0.1.3 $$|
|00000160| 44 61 74 65 3a 20 39 32 | 2f 30 36 2f 30 38 20 31 |Date: 92|/06/08 1|
|00000170| 33 3a 34 33 3a 35 37 20 | 24 27 3b 0d 23 0d 23 20 |3:43:57 |$';.#.# |
|00000180| 54 68 69 73 20 66 69 6c | 65 20 69 73 20 61 75 74 |This fil|e is aut|
|00000190| 6f 6d 61 74 69 63 61 6c | 6c 79 20 69 6e 63 6c 75 |omatical|ly inclu|
|000001a0| 64 65 64 20 69 66 20 79 | 6f 75 20 64 6f 20 70 65 |ded if y|ou do pe|
|000001b0| 72 6c 20 2d 64 2e 0d 23 | 20 49 74 27 73 20 70 72 |rl -d..#| It's pr|
|000001c0| 6f 62 61 62 6c 79 20 6e | 6f 74 20 75 73 65 66 75 |obably n|ot usefu|
|000001d0| 6c 20 74 6f 20 69 6e 63 | 6c 75 64 65 20 74 68 69 |l to inc|lude thi|
|000001e0| 73 20 79 6f 75 72 73 65 | 6c 66 2e 0d 23 0d 23 20 |s yourse|lf..#.# |
|000001f0| 50 65 72 6c 20 73 75 70 | 70 6c 69 65 73 20 74 68 |Perl sup|plies th|
|00000200| 65 20 76 61 6c 75 65 73 | 20 66 6f 72 20 40 6c 69 |e values| for @li|
|00000210| 6e 65 20 61 6e 64 20 25 | 73 75 62 2e 20 20 49 74 |ne and %|sub.  It|
|00000220| 20 65 66 66 65 63 74 69 | 76 65 6c 79 20 69 6e 73 | effecti|vely ins|
|00000230| 65 72 74 73 0d 23 20 61 | 20 64 6f 20 44 42 27 44 |erts.# a| do DB'D|
|00000240| 42 28 3c 6c 69 6e 65 6e | 75 6d 3e 29 3b 20 69 6e |B(<linen|um>); in|
|00000250| 20 66 72 6f 6e 74 20 6f | 66 20 65 76 65 72 79 20 | front o|f every |
|00000260| 70 6c 61 63 65 20 74 68 | 61 74 20 63 61 6e 0d 23 |place th|at can.#|
|00000270| 20 68 61 76 65 20 61 20 | 62 72 65 61 6b 70 6f 69 | have a |breakpoi|
|00000280| 6e 74 2e 20 20 49 74 20 | 61 6c 73 6f 20 69 6e 73 |nt.  It |also ins|
|00000290| 65 72 74 73 20 61 20 64 | 6f 20 27 70 65 72 6c 64 |erts a d|o 'perld|
|000002a0| 62 2e 70 6c 27 20 62 65 | 66 6f 72 65 20 74 68 65 |b.pl' be|fore the|
|000002b0| 20 66 69 72 73 74 20 6c | 69 6e 65 2e 0d 23 0d 23 | first l|ine..#.#|
|000002c0| 20 24 4c 6f 67 3a 09 70 | 65 72 6c 64 62 2e 70 6c | $Log:.p|erldb.pl|
|000002d0| 2c 76 20 24 0d 23 20 52 | 65 76 69 73 69 6f 6e 20 |,v $.# R|evision |
|000002e0| 34 2e 30 2e 31 2e 33 20 | 20 39 32 2f 30 36 2f 30 |4.0.1.3 | 92/06/0|
|000002f0| 38 20 20 31 33 3a 34 33 | 3a 35 37 20 20 6c 77 61 |8  13:43|:57  lwa|
|00000300| 6c 6c 0d 23 20 70 61 74 | 63 68 32 30 3a 20 73 75 |ll.# pat|ch20: su|
|00000310| 70 70 6f 72 74 20 66 6f | 72 20 4d 53 44 4f 53 20 |pport fo|r MSDOS |
|00000320| 66 6f 6c 64 65 64 20 69 | 6e 74 6f 20 70 65 72 6c |folded i|nto perl|
|00000330| 64 62 2e 70 6c 0d 23 20 | 70 61 74 63 68 32 30 3a |db.pl.# |patch20:|
|00000340| 20 70 65 72 6c 64 62 20 | 63 6f 75 6c 64 6e 27 74 | perldb |couldn't|
|00000350| 20 64 65 62 75 67 20 66 | 69 6c 65 20 63 6f 6e 74 | debug f|ile cont|
|00000360| 61 69 6e 69 6e 67 20 27 | 2d 27 2c 20 73 75 63 68 |aining '|-', such|
|00000370| 20 61 73 20 53 54 44 49 | 4e 20 64 65 73 69 67 6e | as STDI|N design|
|00000380| 61 74 6f 72 0d 23 20 0d | 23 20 52 65 76 69 73 69 |ator.# .|# Revisi|
|00000390| 6f 6e 20 34 2e 30 2e 31 | 2e 32 20 20 39 31 2f 31 |on 4.0.1|.2  91/1|
|000003a0| 31 2f 30 35 20 20 31 37 | 3a 35 35 3a 35 38 20 20 |1/05  17|:55:58  |
|000003b0| 6c 77 61 6c 6c 0d 23 20 | 70 61 74 63 68 31 31 3a |lwall.# |patch11:|
|000003c0| 20 70 65 72 6c 64 62 2e | 70 6c 20 6d 6f 64 69 66 | perldb.|pl modif|
|000003d0| 69 65 64 20 74 6f 20 72 | 75 6e 20 77 69 74 68 69 |ied to r|un withi|
|000003e0| 6e 20 65 6d 61 63 73 20 | 69 6e 20 70 65 72 6c 64 |n emacs |in perld|
|000003f0| 62 2d 6d 6f 64 65 0d 23 | 20 0d 23 20 52 65 76 69 |b-mode.#| .# Revi|
|00000400| 73 69 6f 6e 20 34 2e 30 | 2e 31 2e 31 20 20 39 31 |sion 4.0|.1.1  91|
|00000410| 2f 30 36 2f 30 37 20 20 | 31 31 3a 31 37 3a 34 34 |/06/07  |11:17:44|
|00000420| 20 20 6c 77 61 6c 6c 0d | 23 20 70 61 74 63 68 34 |  lwall.|# patch4|
|00000430| 3a 20 61 64 64 65 64 20 | 24 5e 50 20 76 61 72 69 |: added |$^P vari|
|00000440| 61 62 6c 65 20 74 6f 20 | 63 6f 6e 74 72 6f 6c 20 |able to |control |
|00000450| 63 61 6c 6c 69 6e 67 20 | 6f 66 20 70 65 72 6c 64 |calling |of perld|
|00000460| 62 20 72 6f 75 74 69 6e | 65 73 0d 23 20 70 61 74 |b routin|es.# pat|
|00000470| 63 68 34 3a 20 64 65 62 | 75 67 67 65 72 20 73 6f |ch4: deb|ugger so|
|00000480| 6d 65 74 69 6d 65 73 20 | 6c 69 73 74 65 64 20 77 |metimes |listed w|
|00000490| 72 6f 6e 67 20 6e 75 6d | 62 65 72 20 6f 66 20 6c |rong num|ber of l|
|000004a0| 69 6e 65 73 20 66 6f 72 | 20 61 20 73 74 61 74 65 |ines for| a state|
|000004b0| 6d 65 6e 74 0d 23 20 0d | 23 20 52 65 76 69 73 69 |ment.# .|# Revisi|
|000004c0| 6f 6e 20 34 2e 30 20 20 | 39 31 2f 30 33 2f 32 30 |on 4.0  |91/03/20|
|000004d0| 20 20 30 31 3a 32 35 3a | 35 30 20 20 6c 77 61 6c |  01:25:|50  lwal|
|000004e0| 6c 0d 23 20 34 2e 30 20 | 62 61 73 65 6c 69 6e 65 |l.# 4.0 |baseline|
|000004f0| 2e 0d 23 20 0d 23 20 52 | 65 76 69 73 69 6f 6e 20 |..# .# R|evision |
|00000500| 33 2e 30 2e 31 2e 36 20 | 20 39 31 2f 30 31 2f 31 |3.0.1.6 | 91/01/1|
|00000510| 31 20 20 31 38 3a 30 38 | 3a 35 38 20 20 6c 77 61 |1  18:08|:58  lwa|
|00000520| 6c 6c 0d 23 20 70 61 74 | 63 68 34 32 3a 20 40 5f |ll.# pat|ch42: @_|
|00000530| 20 63 6f 75 6c 64 6e 27 | 74 20 62 65 20 61 63 63 | couldn'|t be acc|
|00000540| 65 73 73 65 64 20 66 72 | 6f 6d 20 64 65 62 75 67 |essed fr|om debug|
|00000550| 67 65 72 0d 23 20 0d 23 | 20 52 65 76 69 73 69 6f |ger.# .#| Revisio|
|00000560| 6e 20 33 2e 30 2e 31 2e | 35 20 20 39 30 2f 31 31 |n 3.0.1.|5  90/11|
|00000570| 2f 31 30 20 20 30 31 3a | 34 30 3a 32 36 20 20 6c |/10  01:|40:26  l|
|00000580| 77 61 6c 6c 0d 23 20 70 | 61 74 63 68 33 38 3a 20 |wall.# p|atch38: |
|00000590| 74 68 65 20 64 65 62 75 | 67 67 65 72 20 77 6f 75 |the debu|gger wou|
|000005a0| 6c 64 6e 27 74 20 73 74 | 6f 70 20 63 6f 72 72 65 |ldn't st|op corre|
|000005b0| 63 74 6c 79 20 6f 72 20 | 64 6f 20 61 63 74 69 6f |ctly or |do actio|
|000005c0| 6e 20 72 6f 75 74 69 6e | 65 73 0d 23 20 0d 23 20 |n routin|es.# .# |
|000005d0| 52 65 76 69 73 69 6f 6e | 20 33 2e 30 2e 31 2e 34 |Revision| 3.0.1.4|
|000005e0| 20 20 39 30 2f 31 30 2f | 31 35 20 20 31 37 3a 34 |  90/10/|15  17:4|
|000005f0| 30 3a 33 38 20 20 6c 77 | 61 6c 6c 0d 23 20 70 61 |0:38  lw|all.# pa|
|00000600| 74 63 68 32 39 3a 20 61 | 64 64 65 64 20 63 61 6c |tch29: a|dded cal|
|00000610| 6c 65 72 0d 23 20 70 61 | 74 63 68 32 39 3a 20 74 |ler.# pa|tch29: t|
|00000620| 68 65 20 64 65 62 75 67 | 67 65 72 20 6e 6f 77 20 |he debug|ger now |
|00000630| 75 6e 64 65 72 73 74 61 | 6e 64 73 20 70 61 63 6b |understa|nds pack|
|00000640| 61 67 65 73 20 61 6e 64 | 20 65 76 61 6c 73 0d 23 |ages and| evals.#|
|00000650| 20 70 61 74 63 68 32 39 | 3a 20 73 63 72 69 70 74 | patch29|: script|
|00000660| 73 20 6e 6f 77 20 72 75 | 6e 20 61 74 20 61 6c 6d |s now ru|n at alm|
|00000670| 6f 73 74 20 66 75 6c 6c | 20 73 70 65 65 64 20 75 |ost full| speed u|
|00000680| 6e 64 65 72 20 74 68 65 | 20 64 65 62 75 67 67 65 |nder the| debugge|
|00000690| 72 0d 23 20 70 61 74 63 | 68 32 39 3a 20 6d 6f 72 |r.# patc|h29: mor|
|000006a0| 65 20 76 61 72 69 61 62 | 6c 65 73 20 61 72 65 20 |e variab|les are |
|000006b0| 73 65 74 74 61 62 6c 65 | 20 66 72 6f 6d 20 64 65 |settable| from de|
|000006c0| 62 75 67 67 65 72 0d 23 | 20 0d 23 20 52 65 76 69 |bugger.#| .# Revi|
|000006d0| 73 69 6f 6e 20 33 2e 30 | 2e 31 2e 33 20 20 39 30 |sion 3.0|.1.3  90|
|000006e0| 2f 30 38 2f 30 39 20 20 | 30 34 3a 30 30 3a 35 38 |/08/09  |04:00:58|
|000006f0| 20 20 6c 77 61 6c 6c 0d | 23 20 70 61 74 63 68 31 |  lwall.|# patch1|
|00000700| 39 3a 20 64 65 62 75 67 | 67 65 72 20 6e 6f 77 20 |9: debug|ger now |
|00000710| 61 6c 6c 6f 77 73 20 63 | 6f 6e 74 69 6e 75 61 74 |allows c|ontinuat|
|00000720| 69 6f 6e 20 6c 69 6e 65 | 73 0d 23 20 70 61 74 63 |ion line|s.# patc|
|00000730| 68 31 39 3a 20 64 65 62 | 75 67 67 65 72 20 63 61 |h19: deb|ugger ca|
|00000740| 6e 20 6e 6f 77 20 64 75 | 6d 70 20 6c 69 73 74 73 |n now du|mp lists|
|00000750| 20 6f 66 20 76 61 72 69 | 61 62 6c 65 73 0d 23 20 | of vari|ables.# |
|00000760| 70 61 74 63 68 31 39 3a | 20 64 65 62 75 67 67 65 |patch19:| debugge|
|00000770| 72 20 63 61 6e 20 6e 6f | 77 20 61 64 64 20 61 6c |r can no|w add al|
|00000780| 69 61 73 65 73 20 65 61 | 73 69 6c 79 20 66 72 6f |iases ea|sily fro|
|00000790| 6d 20 70 72 6f 6d 70 74 | 0d 23 20 0d 23 20 52 65 |m prompt|.# .# Re|
|000007a0| 76 69 73 69 6f 6e 20 33 | 2e 30 2e 31 2e 32 20 20 |vision 3|.0.1.2  |
|000007b0| 39 30 2f 30 33 2f 31 32 | 20 20 31 36 3a 33 39 3a |90/03/12|  16:39:|
|000007c0| 33 39 20 20 6c 77 61 6c | 6c 0d 23 20 70 61 74 63 |39  lwal|l.# patc|
|000007d0| 68 31 33 3a 20 70 65 72 | 6c 20 2d 64 20 64 69 64 |h13: per|l -d did|
|000007e0| 6e 27 74 20 66 6f 72 6d | 61 74 20 73 74 61 63 6b |n't form|at stack|
|000007f0| 20 74 72 61 63 65 73 20 | 6f 66 20 2a 66 6f 6f 20 | traces |of *foo |
|00000800| 72 69 67 68 74 0d 23 20 | 70 61 74 63 68 31 33 3a |right.# |patch13:|
|00000810| 20 70 65 72 6c 20 2d 64 | 20 77 69 70 65 64 20 6f | perl -d| wiped o|
|00000820| 75 74 20 73 63 61 6c 61 | 72 20 72 65 74 75 72 6e |ut scala|r return|
|00000830| 20 76 61 6c 75 65 73 20 | 6f 66 20 73 75 62 72 6f | values |of subro|
|00000840| 75 74 69 6e 65 73 0d 23 | 20 0d 23 20 52 65 76 69 |utines.#| .# Revi|
|00000850| 73 69 6f 6e 20 33 2e 30 | 2e 31 2e 31 20 20 38 39 |sion 3.0|.1.1  89|
|00000860| 2f 31 30 2f 32 36 20 20 | 32 33 3a 31 34 3a 30 32 |/10/26  |23:14:02|
|00000870| 20 20 6c 77 61 6c 6c 0d | 23 20 70 61 74 63 68 31 |  lwall.|# patch1|
|00000880| 3a 20 52 43 53 20 65 78 | 70 61 6e 64 65 64 20 61 |: RCS ex|panded a|
|00000890| 6e 20 75 6e 69 6e 74 65 | 6e 64 65 64 20 24 48 65 |n uninte|nded $He|
|000008a0| 61 64 65 72 20 69 6e 20 | 6c 69 62 2f 70 65 72 6c |ader in |lib/perl|
|000008b0| 64 62 2e 70 6c 0d 23 20 | 0d 23 20 52 65 76 69 73 |db.pl.# |.# Revis|
|000008c0| 69 6f 6e 20 33 2e 30 20 | 20 38 39 2f 31 30 2f 31 |ion 3.0 | 89/10/1|
|000008d0| 38 20 20 31 35 3a 31 39 | 3a 34 36 20 20 6c 77 61 |8  15:19|:46  lwa|
|000008e0| 6c 6c 0d 23 20 33 2e 30 | 20 62 61 73 65 6c 69 6e |ll.# 3.0| baselin|
|000008f0| 65 0d 23 20 0d 23 20 52 | 65 76 69 73 69 6f 6e 20 |e.# .# R|evision |
|00000900| 32 2e 30 20 20 38 38 2f | 30 36 2f 30 35 20 20 30 |2.0  88/|06/05  0|
|00000910| 30 3a 30 39 3a 34 35 20 | 20 72 6f 6f 74 0d 23 20 |0:09:45 | root.# |
|00000920| 42 61 73 65 6c 69 6e 65 | 20 76 65 72 73 69 6f 6e |Baseline| version|
|00000930| 20 32 2e 30 2e 0d 23 20 | 0d 23 0d 0d 24 63 6f 6e | 2.0..# |.#..$con|
|00000940| 73 6f 6c 65 20 3d 20 22 | 44 65 76 3a 43 6f 6e 73 |sole = "|Dev:Cons|
|00000950| 6f 6c 65 3a 50 65 72 6c | 20 44 65 62 75 67 22 3b |ole:Perl| Debug";|
|00000960| 0d 24 72 63 66 69 6c 65 | 3d 22 2e 70 65 72 6c 64 |.$rcfile|=".perld|
|00000970| 62 22 3b 0d 0d 6f 70 65 | 6e 28 49 4e 2c 20 22 3c |b";..ope|n(IN, "<|
|00000980| 24 63 6f 6e 73 6f 6c 65 | 22 29 20 7c 7c 20 6f 70 |$console|") || op|
|00000990| 65 6e 28 49 4e 2c 20 20 | 22 3c 26 53 54 44 49 4e |en(IN,  |"<&STDIN|
|000009a0| 22 29 3b 09 23 20 73 6f | 20 77 65 20 64 6f 6e 27 |");.# so| we don'|
|000009b0| 74 20 64 69 6e 67 6c 65 | 20 73 74 64 69 6e 0d 6f |t dingle| stdin.o|
|000009c0| 70 65 6e 28 4f 55 54 2c | 22 3e 24 63 6f 6e 73 6f |pen(OUT,|">$conso|
|000009d0| 6c 65 22 29 20 7c 7c 20 | 6f 70 65 6e 28 4f 55 54 |le") || |open(OUT|
|000009e0| 2c 20 22 3e 26 53 54 44 | 4f 55 54 22 29 3b 09 23 |, ">&STD|OUT");.#|
|000009f0| 20 73 6f 20 77 65 20 64 | 6f 6e 27 74 20 64 6f 6e | so we d|on't don|
|00000a00| 67 6c 65 20 73 74 64 6f | 75 74 0d 73 65 6c 65 63 |gle stdo|ut.selec|
|00000a10| 74 28 4f 55 54 29 3b 0d | 24 7c 20 3d 20 31 3b 09 |t(OUT);.|$| = 1;.|
|00000a20| 09 09 09 23 20 66 6f 72 | 20 44 42 27 4f 55 54 0d |...# for| DB'OUT.|
|00000a30| 73 65 6c 65 63 74 28 53 | 54 44 4f 55 54 29 3b 0d |select(S|TDOUT);.|
|00000a40| 24 7c 20 3d 20 31 3b 09 | 09 09 09 23 20 66 6f 72 |$| = 1;.|...# for|
|00000a50| 20 72 65 61 6c 20 53 54 | 44 4f 55 54 0d 24 73 75 | real ST|DOUT.$su|
|00000a60| 62 20 3d 20 27 27 3b 0d | 0d 24 68 65 61 64 65 72 |b = '';.|.$header|
|00000a70| 20 3d 7e 20 73 2f 2e 48 | 65 61 64 65 72 3a 20 28 | =~ s/.H|eader: (|
|00000a80| 5b 5e 2c 5d 2b 29 2c 76 | 28 5c 73 2b 5c 53 2b 5c |[^,]+),v|(\s+\S+\|
|00000a90| 73 2b 5c 53 2b 29 2e 2a | 24 2f 24 31 24 32 2f 3b |s+\S+).*|$/$1$2/;|
|00000aa0| 0d 70 72 69 6e 74 20 4f | 55 54 20 22 5c 6e 4c 6f |.print O|UT "\nLo|
|00000ab0| 61 64 69 6e 67 20 44 42 | 20 72 6f 75 74 69 6e 65 |ading DB| routine|
|00000ac0| 73 20 66 72 6f 6d 20 24 | 68 65 61 64 65 72 5c 6e |s from $|header\n|
|00000ad0| 22 3b 0d 70 72 69 6e 74 | 20 4f 55 54 20 22 5c 6e |";.print| OUT "\n|
|00000ae0| 45 6e 74 65 72 20 68 20 | 66 6f 72 20 68 65 6c 70 |Enter h |for help|
|00000af0| 2e 5c 6e 5c 6e 22 3b 0d | 0d 73 75 62 20 44 42 20 |.\n\n";.|.sub DB |
|00000b00| 7b 0d 20 20 20 20 26 73 | 61 76 65 3b 0d 20 20 20 |{.    &s|ave;.   |
|00000b10| 20 28 24 70 61 63 6b 61 | 67 65 2c 20 24 66 69 6c | ($packa|ge, $fil|
|00000b20| 65 6e 61 6d 65 2c 20 24 | 6c 69 6e 65 29 20 3d 20 |ename, $|line) = |
|00000b30| 63 61 6c 6c 65 72 3b 0d | 20 20 20 20 24 75 73 65 |caller;.|    $use|
|00000b40| 72 63 6f 6e 74 65 78 74 | 20 3d 20 27 28 24 40 2c |rcontext| = '($@,|
|00000b50| 20 24 21 2c 20 24 5b 2c | 20 24 2c 2c 20 24 2f 2c | $!, $[,| $,, $/,|
|00000b60| 20 24 5c 29 20 3d 20 40 | 73 61 76 65 64 3b 27 20 | $\) = @|saved;' |
|00000b70| 2e 0d 09 22 70 61 63 6b | 61 67 65 20 24 70 61 63 |..."pack|age $pac|
|00000b80| 6b 61 67 65 3b 22 3b 09 | 09 23 20 74 68 69 73 20 |kage;";.|.# this |
|00000b90| 77 6f 6e 27 74 20 6c 65 | 74 20 74 68 65 6d 20 6d |won't le|t them m|
|00000ba0| 6f 64 69 66 79 2c 20 61 | 6c 61 73 0d 20 20 20 20 |odify, a|las.    |
|00000bb0| 6c 6f 63 61 6c 28 24 5e | 50 29 20 3d 20 30 3b 09 |local($^|P) = 0;.|
|00000bc0| 09 09 23 20 64 6f 6e 27 | 74 20 64 65 62 75 67 20 |..# don'|t debug |
|00000bd0| 6f 75 72 20 6f 77 6e 20 | 65 76 61 6c 73 0d 20 20 |our own |evals.  |
|00000be0| 20 20 6c 6f 63 61 6c 28 | 2a 64 62 6c 69 6e 65 29 |  local(|*dbline)|
|00000bf0| 20 3d 20 22 5f 3c 24 66 | 69 6c 65 6e 61 6d 65 22 | = "_<$f|ilename"|
|00000c00| 3b 0d 20 20 20 20 24 6d | 61 78 20 3d 20 24 23 64 |;.    $m|ax = $#d|
|00000c10| 62 6c 69 6e 65 3b 0d 20 | 20 20 20 69 66 20 28 28 |bline;. |   if ((|
|00000c20| 24 73 74 6f 70 2c 24 61 | 63 74 69 6f 6e 29 20 3d |$stop,$a|ction) =|
|00000c30| 20 73 70 6c 69 74 28 2f | 5c 30 2f 2c 24 64 62 6c | split(/|\0/,$dbl|
|00000c40| 69 6e 65 7b 24 6c 69 6e | 65 7d 29 29 20 7b 0d 09 |ine{$lin|e})) {..|
|00000c50| 69 66 20 28 24 73 74 6f | 70 20 65 71 20 27 31 27 |if ($sto|p eq '1'|
|00000c60| 29 20 7b 0d 09 20 20 20 | 20 24 73 69 67 6e 61 6c |) {..   | $signal|
|00000c70| 20 7c 3d 20 31 3b 0d 09 | 7d 0d 09 65 6c 73 65 20 | |= 1;..|}..else |
|00000c80| 7b 0d 09 20 20 20 20 24 | 65 76 61 6c 61 72 67 20 |{..    $|evalarg |
|00000c90| 3d 20 22 5c 24 44 42 27 | 73 69 67 6e 61 6c 20 7c |= "\$DB'|signal ||
|00000ca0| 3d 20 64 6f 20 7b 24 73 | 74 6f 70 3b 7d 22 3b 20 |= do {$s|top;}"; |
|00000cb0| 26 65 76 61 6c 3b 0d 09 | 20 20 20 20 24 64 62 6c |&eval;..|    $dbl|
|00000cc0| 69 6e 65 7b 24 6c 69 6e | 65 7d 20 3d 7e 20 73 2f |ine{$lin|e} =~ s/|
|00000cd0| 3b 39 28 24 7c 5c 30 29 | 2f 24 31 2f 3b 0d 09 7d |;9($|\0)|/$1/;..}|
|00000ce0| 0d 20 20 20 20 7d 0d 20 | 20 20 20 69 66 20 28 24 |.    }. |   if ($|
|00000cf0| 73 69 6e 67 6c 65 20 7c | 7c 20 24 74 72 61 63 65 |single ||| $trace|
|00000d00| 20 7c 7c 20 24 73 69 67 | 6e 61 6c 29 20 7b 0d 09 | || $sig|nal) {..|
|00000d10| 69 66 20 28 24 65 6d 61 | 63 73 29 20 7b 0d 09 20 |if ($ema|cs) {.. |
|00000d20| 20 20 20 70 72 69 6e 74 | 20 4f 55 54 20 22 5c 30 |   print| OUT "\0|
|00000d30| 33 32 5c 30 33 32 24 66 | 69 6c 65 6e 61 6d 65 3a |32\032$f|ilename:|
|00000d40| 24 6c 69 6e 65 3a 30 5c | 6e 22 3b 0d 09 7d 20 65 |$line:0\|n";..} e|
|00000d50| 6c 73 65 20 7b 0d 09 20 | 20 20 20 70 72 69 6e 74 |lse {.. |   print|
|00000d60| 20 4f 55 54 20 22 24 70 | 61 63 6b 61 67 65 27 22 | OUT "$p|ackage'"|
|00000d70| 20 75 6e 6c 65 73 73 20 | 24 73 75 62 20 3d 7e 20 | unless |$sub =~ |
|00000d80| 2f 27 2f 3b 0d 09 20 20 | 20 20 70 72 69 6e 74 20 |/'/;..  |  print |
|00000d90| 4f 55 54 20 22 24 73 75 | 62 28 24 66 69 6c 65 6e |OUT "$su|b($filen|
|00000da0| 61 6d 65 3a 24 6c 69 6e | 65 29 3a 5c 74 22 2c 24 |ame:$lin|e):\t",$|
|00000db0| 64 62 6c 69 6e 65 5b 24 | 6c 69 6e 65 5d 3b 0d 09 |dbline[$|line];..|
|00000dc0| 20 20 20 20 66 6f 72 20 | 28 24 69 20 3d 20 24 6c |    for |($i = $l|
|00000dd0| 69 6e 65 20 2b 20 31 3b | 20 24 69 20 3c 3d 20 24 |ine + 1;| $i <= $|
|00000de0| 6d 61 78 20 26 26 20 24 | 64 62 6c 69 6e 65 5b 24 |max && $|dbline[$|
|00000df0| 69 5d 20 3d 3d 20 30 3b | 20 2b 2b 24 69 29 20 7b |i] == 0;| ++$i) {|
|00000e00| 0d 09 09 6c 61 73 74 20 | 69 66 20 24 64 62 6c 69 |...last |if $dbli|
|00000e10| 6e 65 5b 24 69 5d 20 3d | 7e 20 2f 5e 5c 73 2a 28 |ne[$i] =|~ /^\s*(|
|00000e20| 7d 7c 23 7c 5c 6e 29 2f | 3b 0d 09 09 70 72 69 6e |}|#|\n)/|;...prin|
|00000e30| 74 20 4f 55 54 20 22 24 | 73 75 62 28 24 66 69 6c |t OUT "$|sub($fil|
|00000e40| 65 6e 61 6d 65 3a 24 69 | 29 3a 5c 74 22 2c 24 64 |ename:$i|):\t",$d|
|00000e50| 62 6c 69 6e 65 5b 24 69 | 5d 3b 0d 09 20 20 20 20 |bline[$i|];..    |
|00000e60| 7d 0d 09 7d 0d 20 20 20 | 20 7d 0d 20 20 20 20 24 |}..}.   | }.    $|
|00000e70| 65 76 61 6c 61 72 67 20 | 3d 20 24 61 63 74 69 6f |evalarg |= $actio|
|00000e80| 6e 2c 20 26 65 76 61 6c | 20 69 66 20 24 61 63 74 |n, &eval| if $act|
|00000e90| 69 6f 6e 3b 0d 20 20 20 | 20 69 66 20 28 24 73 69 |ion;.   | if ($si|
|00000ea0| 6e 67 6c 65 20 7c 7c 20 | 24 73 69 67 6e 61 6c 29 |ngle || |$signal)|
|00000eb0| 20 7b 0d 09 24 65 76 61 | 6c 61 72 67 20 3d 20 24 | {..$eva|larg = $|
|00000ec0| 70 72 65 2c 20 26 65 76 | 61 6c 20 69 66 20 24 70 |pre, &ev|al if $p|
|00000ed0| 72 65 3b 0d 09 70 72 69 | 6e 74 20 4f 55 54 20 24 |re;..pri|nt OUT $|
|00000ee0| 23 73 74 61 63 6b 20 2e | 20 22 20 6c 65 76 65 6c |#stack .| " level|
|00000ef0| 73 20 64 65 65 70 20 69 | 6e 20 73 75 62 72 6f 75 |s deep i|n subrou|
|00000f00| 74 69 6e 65 20 63 61 6c | 6c 73 21 5c 6e 22 0d 09 |tine cal|ls!\n"..|
|00000f10| 20 20 20 20 69 66 20 24 | 73 69 6e 67 6c 65 20 26 |    if $|single &|
|00000f20| 20 34 3b 0d 09 24 73 74 | 61 72 74 20 3d 20 24 6c | 4;..$st|art = $l|
|00000f30| 69 6e 65 3b 0d 20 20 20 | 20 20 20 43 4d 44 3a 0d |ine;.   |   CMD:.|
|00000f40| 09 77 68 69 6c 65 20 28 | 28 70 72 69 6e 74 20 4f |.while (|(print O|
|00000f50| 55 54 20 22 20 20 44 42 | 3c 22 2c 20 24 23 68 69 |UT "  DB|<", $#hi|
|00000f60| 73 74 2b 31 2c 20 22 3e | 20 22 29 2c 20 24 63 6d |st+1, ">| "), $cm|
|00000f70| 64 3d 26 67 65 74 73 29 | 20 7b 0d 09 20 20 20 20 |d=&gets)| {..    |
|00000f80| 7b 0d 09 09 24 73 69 6e | 67 6c 65 20 3d 20 30 3b |{...$sin|gle = 0;|
|00000f90| 0d 09 09 24 73 69 67 6e | 61 6c 20 3d 20 30 3b 0d |...$sign|al = 0;.|
|00000fa0| 09 09 24 63 6d 64 20 65 | 71 20 27 27 20 26 26 20 |..$cmd e|q '' && |
|00000fb0| 65 78 69 74 20 30 3b 0d | 09 09 63 68 6f 70 28 24 |exit 0;.|..chop($|
|00000fc0| 63 6d 64 29 3b 0d 09 09 | 23 20 54 68 69 73 20 77 |cmd);...|# This w|
|00000fd0| 69 6c 6c 20 72 65 6d 6f | 76 65 20 74 68 65 20 70 |ill remo|ve the p|
|00000fe0| 72 6f 6d 70 74 20 70 69 | 63 6b 65 64 20 75 70 20 |rompt pi|cked up |
|00000ff0| 62 79 20 4d 50 57 0d 09 | 09 24 74 6d 70 5f 70 72 |by MPW..|.$tmp_pr|
|00001000| 6f 6d 70 74 20 3d 20 22 | 20 20 44 42 3c 22 20 2e |ompt = "|  DB<" .|
|00001010| 20 28 24 23 68 69 73 74 | 20 2b 20 31 29 20 2e 20 | ($#hist| + 1) . |
|00001020| 22 3e 20 22 3b 0d 09 09 | 24 63 6d 64 20 3d 7e 20 |"> ";...|$cmd =~ |
|00001030| 73 2f 5e 24 74 6d 70 5f | 70 72 6f 6d 70 74 28 2e |s/^$tmp_|prompt(.|
|00001040| 2a 29 24 2f 5c 31 2f 3b | 0d 09 09 23 20 4d 50 57 |*)$/\1/;|...# MPW|
|00001050| 20 52 65 6d 6f 76 61 6c | 20 65 6e 64 65 64 2e 2e | Removal| ended..|
|00001060| 2e 0d 09 09 24 63 6d 64 | 20 3d 7e 20 73 2f 5c 5c |....$cmd| =~ s/\\|
|00001070| 24 2f 2f 20 26 26 20 64 | 6f 20 7b 0d 09 09 20 20 |$// && d|o {...  |
|00001080| 20 20 70 72 69 6e 74 20 | 4f 55 54 20 22 20 20 63 |  print |OUT "  c|
|00001090| 6f 6e 74 3a 20 22 3b 0d | 09 09 20 20 20 20 24 63 |ont: ";.|..    $c|
|000010a0| 6d 64 20 2e 3d 20 26 67 | 65 74 73 3b 0d 09 09 20 |md .= &g|ets;... |
|000010b0| 20 20 20 72 65 64 6f 20 | 43 4d 44 3b 0d 09 09 7d |   redo |CMD;...}|
|000010c0| 3b 0d 09 09 24 63 6d 64 | 20 3d 7e 20 2f 5e 71 24 |;...$cmd| =~ /^q$|
|000010d0| 2f 20 26 26 20 65 78 69 | 74 20 30 3b 0d 09 09 24 |/ && exi|t 0;...$|
|000010e0| 63 6d 64 20 3d 7e 20 2f | 5e 24 2f 20 26 26 20 28 |cmd =~ /|^$/ && (|
|000010f0| 24 63 6d 64 20 3d 20 24 | 6c 61 73 74 73 74 65 70 |$cmd = $|laststep|
|00001100| 29 3b 0d 09 09 70 75 73 | 68 28 40 68 69 73 74 2c |);...pus|h(@hist,|
|00001110| 24 63 6d 64 29 20 69 66 | 20 6c 65 6e 67 74 68 28 |$cmd) if| length(|
|00001120| 24 63 6d 64 29 20 3e 20 | 31 3b 0d 09 09 28 24 69 |$cmd) > |1;...($i|
|00001130| 29 20 3d 20 73 70 6c 69 | 74 28 2f 5c 73 2b 2f 2c |) = spli|t(/\s+/,|
|00001140| 24 63 6d 64 29 3b 0d 09 | 09 65 76 61 6c 20 22 5c |$cmd);..|.eval "\|
|00001150| 24 63 6d 64 20 3d 7e 20 | 24 61 6c 69 61 73 7b 24 |$cmd =~ |$alias{$|
|00001160| 69 7d 22 2c 20 70 72 69 | 6e 74 20 4f 55 54 20 24 |i}", pri|nt OUT $|
|00001170| 40 20 69 66 20 24 61 6c | 69 61 73 7b 24 69 7d 3b |@ if $al|ias{$i};|
|00001180| 0d 09 09 24 63 6d 64 20 | 3d 7e 20 2f 5e 68 24 2f |...$cmd |=~ /^h$/|
|00001190| 20 26 26 20 64 6f 20 7b | 0d 09 09 20 20 20 20 70 | && do {|...    p|
|000011a0| 72 69 6e 74 20 4f 55 54 | 20 22 0d 54 09 09 53 74 |rint OUT| ".T..St|
|000011b0| 61 63 6b 20 74 72 61 63 | 65 2e 0d 73 09 09 53 69 |ack trac|e..s..Si|
|000011c0| 6e 67 6c 65 20 73 74 65 | 70 2e 0d 6e 09 09 4e 65 |ngle ste|p..n..Ne|
|000011d0| 78 74 2c 20 73 74 65 70 | 73 20 6f 76 65 72 20 73 |xt, step|s over s|
|000011e0| 75 62 72 6f 75 74 69 6e | 65 20 63 61 6c 6c 73 2e |ubroutin|e calls.|
|000011f0| 0d 72 09 09 52 65 74 75 | 72 6e 20 66 72 6f 6d 20 |.r..Retu|rn from |
|00001200| 63 75 72 72 65 6e 74 20 | 73 75 62 72 6f 75 74 69 |current |subrouti|
|00001210| 6e 65 2e 0d 63 20 5b 6c | 69 6e 65 5d 09 43 6f 6e |ne..c [l|ine].Con|
|00001220| 74 69 6e 75 65 3b 20 6f | 70 74 69 6f 6e 61 6c 6c |tinue; o|ptionall|
|00001230| 79 20 69 6e 73 65 72 74 | 73 20 61 20 6f 6e 65 2d |y insert|s a one-|
|00001240| 74 69 6d 65 2d 6f 6e 6c | 79 20 62 72 65 61 6b 70 |time-onl|y breakp|
|00001250| 6f 69 6e 74 20 0d 09 09 | 61 74 20 74 68 65 20 73 |oint ...|at the s|
|00001260| 70 65 63 69 66 69 65 64 | 20 6c 69 6e 65 2e 0d 3c |pecified| line..<|
|00001270| 43 52 3e 09 09 52 65 70 | 65 61 74 20 6c 61 73 74 |CR>..Rep|eat last|
|00001280| 20 6e 20 6f 72 20 73 2e | 0d 6c 20 6d 69 6e 2b 69 | n or s.|.l min+i|
|00001290| 6e 63 72 09 4c 69 73 74 | 20 69 6e 63 72 2b 31 20 |ncr.List| incr+1 |
|000012a0| 6c 69 6e 65 73 20 73 74 | 61 72 74 69 6e 67 20 61 |lines st|arting a|
|000012b0| 74 20 6d 69 6e 2e 0d 6c | 20 6d 69 6e 2d 6d 61 78 |t min..l| min-max|
|000012c0| 09 4c 69 73 74 20 6c 69 | 6e 65 73 2e 0d 6c 20 6c |.List li|nes..l l|
|000012d0| 69 6e 65 09 09 4c 69 73 | 74 20 6c 69 6e 65 3b 0d |ine..Lis|t line;.|
|000012e0| 6c 09 09 4c 69 73 74 20 | 6e 65 78 74 20 77 69 6e |l..List |next win|
|000012f0| 64 6f 77 2e 0d 2d 09 09 | 4c 69 73 74 20 70 72 65 |dow..-..|List pre|
|00001300| 76 69 6f 75 73 20 77 69 | 6e 64 6f 77 2e 0d 77 20 |vious wi|ndow..w |
|00001310| 6c 69 6e 65 09 09 4c 69 | 73 74 20 77 69 6e 64 6f |line..Li|st windo|
|00001320| 77 20 61 72 6f 75 6e 64 | 20 6c 69 6e 65 2e 0d 6c |w around| line..l|
|00001330| 20 73 75 62 6e 61 6d 65 | 09 4c 69 73 74 20 73 75 | subname|.List su|
|00001340| 62 72 6f 75 74 69 6e 65 | 2e 0d 66 20 66 69 6c 65 |broutine|..f file|
|00001350| 6e 61 6d 65 09 53 77 69 | 74 63 68 20 74 6f 20 66 |name.Swi|tch to f|
|00001360| 69 6c 65 6e 61 6d 65 2e | 0d 2f 70 61 74 74 65 72 |ilename.|./patter|
|00001370| 6e 2f 09 53 65 61 72 63 | 68 20 66 6f 72 77 61 72 |n/.Searc|h forwar|
|00001380| 64 73 20 66 6f 72 20 70 | 61 74 74 65 72 6e 3b 20 |ds for p|attern; |
|00001390| 66 69 6e 61 6c 20 2f 20 | 69 73 20 6f 70 74 69 6f |final / |is optio|
|000013a0| 6e 61 6c 2e 0d 3f 70 61 | 74 74 65 72 6e 3f 09 53 |nal..?pa|ttern?.S|
|000013b0| 65 61 72 63 68 20 62 61 | 63 6b 77 61 72 64 73 20 |earch ba|ckwards |
|000013c0| 66 6f 72 20 70 61 74 74 | 65 72 6e 2e 0d 4c 09 09 |for patt|ern..L..|
|000013d0| 4c 69 73 74 20 62 72 65 | 61 6b 70 6f 69 6e 74 73 |List bre|akpoints|
|000013e0| 20 61 6e 64 20 61 63 74 | 69 6f 6e 73 2e 0d 53 09 | and act|ions..S.|
|000013f0| 09 4c 69 73 74 20 73 75 | 62 72 6f 75 74 69 6e 65 |.List su|broutine|
|00001400| 20 6e 61 6d 65 73 2e 0d | 74 09 09 54 6f 67 67 6c | names..|t..Toggl|
|00001410| 65 20 74 72 61 63 65 20 | 6d 6f 64 65 2e 0d 62 20 |e trace |mode..b |
|00001420| 5b 6c 69 6e 65 5d 20 5b | 63 6f 6e 64 69 74 69 6f |[line] [|conditio|
|00001430| 6e 5d 0d 09 09 53 65 74 | 20 62 72 65 61 6b 70 6f |n]...Set| breakpo|
|00001440| 69 6e 74 3b 20 6c 69 6e | 65 20 64 65 66 61 75 6c |int; lin|e defaul|
|00001450| 74 73 20 74 6f 20 74 68 | 65 20 63 75 72 72 65 6e |ts to th|e curren|
|00001460| 74 20 65 78 65 63 75 74 | 69 6f 6e 20 6c 69 6e 65 |t execut|ion line|
|00001470| 3b 20 0d 09 09 63 6f 6e | 64 69 74 69 6f 6e 20 62 |; ...con|dition b|
|00001480| 72 65 61 6b 73 20 69 66 | 20 69 74 20 65 76 61 6c |reaks if| it eval|
|00001490| 75 61 74 65 73 20 74 6f | 20 74 72 75 65 2c 20 64 |uates to| true, d|
|000014a0| 65 66 61 75 6c 74 73 20 | 74 6f 20 5c 27 31 5c 27 |efaults |to \'1\'|
|000014b0| 2e 0d 62 20 73 75 62 6e | 61 6d 65 20 5b 63 6f 6e |..b subn|ame [con|
|000014c0| 64 69 74 69 6f 6e 5d 0d | 09 09 53 65 74 20 62 72 |dition].|..Set br|
|000014d0| 65 61 6b 70 6f 69 6e 74 | 20 61 74 20 66 69 72 73 |eakpoint| at firs|
|000014e0| 74 20 6c 69 6e 65 20 6f | 66 20 73 75 62 72 6f 75 |t line o|f subrou|
|000014f0| 74 69 6e 65 2e 0d 64 20 | 5b 6c 69 6e 65 5d 09 44 |tine..d |[line].D|
|00001500| 65 6c 65 74 65 20 62 72 | 65 61 6b 70 6f 69 6e 74 |elete br|eakpoint|
|00001510| 2e 0d 44 09 09 44 65 6c | 65 74 65 20 61 6c 6c 20 |..D..Del|ete all |
|00001520| 62 72 65 61 6b 70 6f 69 | 6e 74 73 2e 0d 61 20 5b |breakpoi|nts..a [|
|00001530| 6c 69 6e 65 5d 20 63 6f | 6d 6d 61 6e 64 0d 09 09 |line] co|mmand...|
|00001540| 53 65 74 20 61 6e 20 61 | 63 74 69 6f 6e 20 74 6f |Set an a|ction to|
|00001550| 20 62 65 20 64 6f 6e 65 | 20 62 65 66 6f 72 65 20 | be done| before |
|00001560| 74 68 65 20 6c 69 6e 65 | 20 69 73 20 65 78 65 63 |the line| is exec|
|00001570| 75 74 65 64 2e 0d 09 09 | 53 65 71 75 65 6e 63 65 |uted....|Sequence|
|00001580| 20 69 73 3a 20 63 68 65 | 63 6b 20 66 6f 72 20 62 | is: che|ck for b|
|00001590| 72 65 61 6b 70 6f 69 6e | 74 2c 20 70 72 69 6e 74 |reakpoin|t, print|
|000015a0| 20 6c 69 6e 65 20 69 66 | 20 6e 65 63 65 73 73 61 | line if| necessa|
|000015b0| 72 79 2c 0d 09 09 64 6f | 20 61 63 74 69 6f 6e 2c |ry,...do| action,|
|000015c0| 20 70 72 6f 6d 70 74 20 | 75 73 65 72 20 69 66 20 | prompt |user if |
|000015d0| 62 72 65 61 6b 70 6f 69 | 6e 74 20 6f 72 20 73 74 |breakpoi|nt or st|
|000015e0| 65 70 2c 20 65 76 61 6c | 75 61 74 65 20 6c 69 6e |ep, eval|uate lin|
|000015f0| 65 2e 0d 41 09 09 44 65 | 6c 65 74 65 20 61 6c 6c |e..A..De|lete all|
|00001600| 20 61 63 74 69 6f 6e 73 | 2e 0d 56 20 5b 70 6b 67 | actions|..V [pkg|
|00001610| 20 5b 76 61 72 73 5d 5d | 09 4c 69 73 74 20 73 6f | [vars]]|.List so|
|00001620| 6d 65 20 28 64 65 66 61 | 75 6c 74 20 61 6c 6c 29 |me (defa|ult all)|
|00001630| 20 76 61 72 69 61 62 6c | 65 73 20 69 6e 20 70 61 | variabl|es in pa|
|00001640| 63 6b 61 67 65 20 28 64 | 65 66 61 75 6c 74 20 63 |ckage (d|efault c|
|00001650| 75 72 72 65 6e 74 29 2e | 0d 58 20 5b 76 61 72 73 |urrent).|.X [vars|
|00001660| 5d 09 53 61 6d 65 20 61 | 73 20 5c 22 56 20 63 75 |].Same a|s \"V cu|
|00001670| 72 72 65 6e 74 70 61 63 | 6b 61 67 65 20 5b 76 61 |rrentpac|kage [va|
|00001680| 72 73 5d 5c 22 2e 0d 3c | 20 63 6f 6d 6d 61 6e 64 |rs]\"..<| command|
|00001690| 09 44 65 66 69 6e 65 20 | 63 6f 6d 6d 61 6e 64 20 |.Define |command |
|000016a0| 62 65 66 6f 72 65 20 70 | 72 6f 6d 70 74 2e 0d 3e |before p|rompt..>|
|000016b0| 20 63 6f 6d 6d 61 6e 64 | 09 44 65 66 69 6e 65 20 | command|.Define |
|000016c0| 63 6f 6d 6d 61 6e 64 20 | 61 66 74 65 72 20 70 72 |command |after pr|
|000016d0| 6f 6d 70 74 2e 0d 21 20 | 6e 75 6d 62 65 72 09 52 |ompt..! |number.R|
|000016e0| 65 64 6f 20 63 6f 6d 6d | 61 6e 64 20 28 64 65 66 |edo comm|and (def|
|000016f0| 61 75 6c 74 20 70 72 65 | 76 69 6f 75 73 20 63 6f |ault pre|vious co|
|00001700| 6d 6d 61 6e 64 29 2e 0d | 21 20 2d 6e 75 6d 62 65 |mmand)..|! -numbe|
|00001710| 72 09 52 65 64 6f 20 6e | 75 6d 62 65 72 5c 27 74 |r.Redo n|umber\'t|
|00001720| 68 20 74 6f 20 6c 61 73 | 74 20 63 6f 6d 6d 61 6e |h to las|t comman|
|00001730| 64 2e 0d 48 20 2d 6e 75 | 6d 62 65 72 09 44 69 73 |d..H -nu|mber.Dis|
|00001740| 70 6c 61 79 20 6c 61 73 | 74 20 6e 75 6d 62 65 72 |play las|t number|
|00001750| 20 63 6f 6d 6d 61 6e 64 | 73 20 28 64 65 66 61 75 | command|s (defau|
|00001760| 6c 74 20 61 6c 6c 29 2e | 0d 71 20 6f 72 20 5e 44 |lt all).|.q or ^D|
|00001770| 09 09 51 75 69 74 2e 0d | 70 20 65 78 70 72 09 09 |..Quit..|p expr..|
|00001780| 53 61 6d 65 20 61 73 20 | 5c 22 70 72 69 6e 74 20 |Same as |\"print |
|00001790| 44 42 27 4f 55 54 20 65 | 78 70 72 5c 22 20 69 6e |DB'OUT e|xpr\" in|
|000017a0| 20 63 75 72 72 65 6e 74 | 20 70 61 63 6b 61 67 65 | current| package|
|000017b0| 2e 0d 3d 20 5b 61 6c 69 | 61 73 20 76 61 6c 75 65 |..= [ali|as value|
|000017c0| 5d 09 44 65 66 69 6e 65 | 20 61 20 63 6f 6d 6d 61 |].Define| a comma|
|000017d0| 6e 64 20 61 6c 69 61 73 | 2c 20 6f 72 20 6c 69 73 |nd alias|, or lis|
|000017e0| 74 20 63 75 72 72 65 6e | 74 20 61 6c 69 61 73 65 |t curren|t aliase|
|000017f0| 73 2e 0d 63 6f 6d 6d 61 | 6e 64 09 09 45 78 65 63 |s..comma|nd..Exec|
|00001800| 75 74 65 20 61 73 20 61 | 20 70 65 72 6c 20 73 74 |ute as a| perl st|
|00001810| 61 74 65 6d 65 6e 74 20 | 69 6e 20 63 75 72 72 65 |atement |in curre|
|00001820| 6e 74 20 70 61 63 6b 61 | 67 65 2e 0d 0d 22 3b 0d |nt packa|ge...";.|
|00001830| 09 09 20 20 20 20 6e 65 | 78 74 20 43 4d 44 3b 20 |..    ne|xt CMD; |
|00001840| 7d 3b 0d 09 09 24 63 6d | 64 20 3d 7e 20 2f 5e 74 |};...$cm|d =~ /^t|
|00001850| 24 2f 20 26 26 20 64 6f | 20 7b 0d 09 09 20 20 20 |$/ && do| {...   |
|00001860| 20 24 74 72 61 63 65 20 | 3d 20 21 24 74 72 61 63 | $trace |= !$trac|
|00001870| 65 3b 0d 09 09 20 20 20 | 20 70 72 69 6e 74 20 4f |e;...   | print O|
|00001880| 55 54 20 22 54 72 61 63 | 65 20 3d 20 22 2e 28 24 |UT "Trac|e = ".($|
|00001890| 74 72 61 63 65 3f 22 6f | 6e 22 3a 22 6f 66 66 22 |trace?"o|n":"off"|
|000018a0| 29 2e 22 5c 6e 22 3b 0d | 09 09 20 20 20 20 6e 65 |)."\n";.|..    ne|
|000018b0| 78 74 20 43 4d 44 3b 20 | 7d 3b 0d 09 09 24 63 6d |xt CMD; |};...$cm|
|000018c0| 64 20 3d 7e 20 2f 5e 53 | 24 2f 20 26 26 20 64 6f |d =~ /^S|$/ && do|
|000018d0| 20 7b 0d 09 09 20 20 20 | 20 66 6f 72 65 61 63 68 | {...   | foreach|
|000018e0| 20 24 73 75 62 6e 61 6d | 65 20 28 73 6f 72 74 28 | $subnam|e (sort(|
|000018f0| 6b 65 79 73 20 25 73 75 | 62 29 29 20 7b 0d 09 09 |keys %su|b)) {...|
|00001900| 09 70 72 69 6e 74 20 4f | 55 54 20 24 73 75 62 6e |.print O|UT $subn|
|00001910| 61 6d 65 2c 22 5c 6e 22 | 3b 0d 09 09 20 20 20 20 |ame,"\n"|;...    |
|00001920| 7d 0d 09 09 20 20 20 20 | 6e 65 78 74 20 43 4d 44 |}...    |next CMD|
|00001930| 3b 20 7d 3b 0d 09 09 24 | 63 6d 64 20 3d 7e 20 73 |; };...$|cmd =~ s|
|00001940| 2f 5e 58 5c 62 2f 56 20 | 24 70 61 63 6b 61 67 65 |/^X\b/V |$package|
|00001950| 2f 3b 0d 09 09 24 63 6d | 64 20 3d 7e 20 2f 5e 56 |/;...$cm|d =~ /^V|
|00001960| 24 2f 20 26 26 20 64 6f | 20 7b 0d 09 09 20 20 20 |$/ && do| {...   |
|00001970| 20 24 63 6d 64 20 3d 20 | 27 56 20 24 70 61 63 6b | $cmd = |'V $pack|
|00001980| 61 67 65 27 3b 20 7d 3b | 0d 09 09 24 63 6d 64 20 |age'; };|...$cmd |
|00001990| 3d 7e 20 2f 5e 56 5c 62 | 5c 73 2a 28 5c 53 2b 29 |=~ /^V\b|\s*(\S+)|
|000019a0| 5c 73 2a 28 2e 2a 29 2f | 20 26 26 20 64 6f 20 7b |\s*(.*)/| && do {|
|000019b0| 0d 09 09 20 20 20 20 24 | 70 61 63 6b 6e 61 6d 65 |...    $|packname|
|000019c0| 20 3d 20 24 31 3b 0d 09 | 09 20 20 20 20 40 76 61 | = $1;..|.    @va|
|000019d0| 72 73 20 3d 20 73 70 6c | 69 74 28 27 20 27 2c 24 |rs = spl|it(' ',$|
|000019e0| 32 29 3b 0d 09 09 20 20 | 20 20 64 6f 20 27 64 75 |2);...  |  do 'du|
|000019f0| 6d 70 76 61 72 2e 70 6c | 27 20 75 6e 6c 65 73 73 |mpvar.pl|' unless|
|00001a00| 20 64 65 66 69 6e 65 64 | 20 26 6d 61 69 6e 27 64 | defined| &main'd|
|00001a10| 75 6d 70 76 61 72 3b 0d | 09 09 20 20 20 20 69 66 |umpvar;.|..    if|
|00001a20| 20 28 64 65 66 69 6e 65 | 64 20 26 6d 61 69 6e 27 | (define|d &main'|
|00001a30| 64 75 6d 70 76 61 72 29 | 20 7b 0d 09 09 09 26 6d |dumpvar)| {....&m|
|00001a40| 61 69 6e 27 64 75 6d 70 | 76 61 72 28 24 70 61 63 |ain'dump|var($pac|
|00001a50| 6b 6e 61 6d 65 2c 40 76 | 61 72 73 29 3b 0d 09 09 |kname,@v|ars);...|
|00001a60| 20 20 20 20 7d 0d 09 09 | 20 20 20 20 65 6c 73 65 |    }...|    else|
|00001a70| 20 7b 0d 09 09 09 70 72 | 69 6e 74 20 44 42 27 4f | {....pr|int DB'O|
|00001a80| 55 54 20 22 64 75 6d 70 | 76 61 72 2e 70 6c 20 6e |UT "dump|var.pl n|
|00001a90| 6f 74 20 61 76 61 69 6c | 61 62 6c 65 2e 5c 6e 22 |ot avail|able.\n"|
|00001aa0| 3b 0d 09 09 20 20 20 20 | 7d 0d 09 09 20 20 20 20 |;...    |}...    |
|00001ab0| 6e 65 78 74 20 43 4d 44 | 3b 20 7d 3b 0d 09 09 24 |next CMD|; };...$|
|00001ac0| 63 6d 64 20 3d 7e 20 2f | 5e 66 5c 62 5c 73 2a 28 |cmd =~ /|^f\b\s*(|
|00001ad0| 2e 2a 29 2f 20 26 26 20 | 64 6f 20 7b 0d 09 09 20 |.*)/ && |do {... |
|00001ae0| 20 20 20 24 66 69 6c 65 | 20 3d 20 24 31 3b 0d 09 |   $file| = $1;..|
|00001af0| 09 20 20 20 20 69 66 20 | 28 21 24 66 69 6c 65 29 |.    if |(!$file)|
|00001b00| 20 7b 0d 09 09 09 70 72 | 69 6e 74 20 4f 55 54 20 | {....pr|int OUT |
|00001b10| 22 54 68 65 20 6f 6c 64 | 20 66 20 63 6f 6d 6d 61 |"The old| f comma|
|00001b20| 6e 64 20 69 73 20 6e 6f | 77 20 74 68 65 20 72 20 |nd is no|w the r |
|00001b30| 63 6f 6d 6d 61 6e 64 2e | 5c 6e 22 3b 0d 09 09 09 |command.|\n";....|
|00001b40| 70 72 69 6e 74 20 4f 55 | 54 20 22 54 68 65 20 6e |print OU|T "The n|
|00001b50| 65 77 20 66 20 63 6f 6d | 6d 61 6e 64 20 73 77 69 |ew f com|mand swi|
|00001b60| 74 63 68 65 73 20 66 69 | 6c 65 6e 61 6d 65 73 2e |tches fi|lenames.|
|00001b70| 5c 6e 22 3b 0d 09 09 09 | 6e 65 78 74 20 43 4d 44 |\n";....|next CMD|
|00001b80| 3b 0d 09 09 20 20 20 20 | 7d 0d 09 09 20 20 20 20 |;...    |}...    |
|00001b90| 69 66 20 28 21 64 65 66 | 69 6e 65 64 20 24 5f 6d |if (!def|ined $_m|
|00001ba0| 61 69 6e 7b 27 5f 3c 27 | 20 2e 20 24 66 69 6c 65 |ain{'_<'| . $file|
|00001bb0| 7d 29 20 7b 0d 09 09 09 | 69 66 20 28 28 24 74 72 |}) {....|if (($tr|
|00001bc0| 79 29 20 3d 20 67 72 65 | 70 28 6d 23 5e 5f 3c 2e |y) = gre|p(m#^_<.|
|00001bd0| 2a 24 66 69 6c 65 23 2c | 20 6b 65 79 73 20 25 5f |*$file#,| keys %_|
|00001be0| 6d 61 69 6e 29 29 20 7b | 0d 09 09 09 20 20 20 20 |main)) {|....    |
|00001bf0| 24 66 69 6c 65 20 3d 20 | 73 75 62 73 74 72 28 24 |$file = |substr($|
|00001c00| 74 72 79 2c 32 29 3b 0d | 09 09 09 20 20 20 20 70 |try,2);.|...    p|
|00001c10| 72 69 6e 74 20 22 5c 6e | 24 66 69 6c 65 3a 5c 6e |rint "\n|$file:\n|
|00001c20| 22 3b 0d 09 09 09 7d 0d | 09 09 20 20 20 20 7d 0d |";....}.|..    }.|
|00001c30| 09 09 20 20 20 20 69 66 | 20 28 21 64 65 66 69 6e |..    if| (!defin|
|00001c40| 65 64 20 24 5f 6d 61 69 | 6e 7b 27 5f 3c 27 20 2e |ed $_mai|n{'_<' .|
|00001c50| 20 24 66 69 6c 65 7d 29 | 20 7b 0d 09 09 09 70 72 | $file})| {....pr|
|00001c60| 69 6e 74 20 4f 55 54 20 | 22 54 68 65 72 65 27 73 |int OUT |"There's|
|00001c70| 20 6e 6f 20 63 6f 64 65 | 20 68 65 72 65 20 61 6e | no code| here an|
|00001c80| 79 74 68 69 6e 67 20 6d | 61 74 63 68 69 6e 67 20 |ything m|atching |
|00001c90| 24 66 69 6c 65 2e 5c 6e | 22 3b 0d 09 09 09 6e 65 |$file.\n|";....ne|
|00001ca0| 78 74 20 43 4d 44 3b 0d | 09 09 20 20 20 20 7d 0d |xt CMD;.|..    }.|
|00001cb0| 09 09 20 20 20 20 65 6c | 73 69 66 20 28 24 66 69 |..    el|sif ($fi|
|00001cc0| 6c 65 20 6e 65 20 24 66 | 69 6c 65 6e 61 6d 65 29 |le ne $f|ilename)|
|00001cd0| 20 7b 0d 09 09 09 2a 64 | 62 6c 69 6e 65 20 3d 20 | {....*d|bline = |
|00001ce0| 22 5f 3c 24 66 69 6c 65 | 22 3b 0d 09 09 09 24 6d |"_<$file|";....$m|
|00001cf0| 61 78 20 3d 20 24 23 64 | 62 6c 69 6e 65 3b 0d 09 |ax = $#d|bline;..|
|00001d00| 09 09 24 66 69 6c 65 6e | 61 6d 65 20 3d 20 24 66 |..$filen|ame = $f|
|00001d10| 69 6c 65 3b 0d 09 09 09 | 24 73 74 61 72 74 20 3d |ile;....|$start =|
|00001d20| 20 31 3b 0d 09 09 09 24 | 63 6d 64 20 3d 20 22 6c | 1;....$|cmd = "l|
|00001d30| 22 3b 0d 09 09 20 20 20 | 20 7d 20 7d 3b 0d 09 09 |";...   | } };...|
|00001d40| 24 63 6d 64 20 3d 7e 20 | 2f 5e 6c 5c 62 5c 73 2a |$cmd =~ |/^l\b\s*|
|00001d50| 28 5b 27 41 2d 5a 61 2d | 7a 5f 5d 5b 27 5c 77 5d |(['A-Za-|z_]['\w]|
|00001d60| 2a 29 2f 20 26 26 20 64 | 6f 20 7b 0d 09 09 20 20 |*)/ && d|o {...  |
|00001d70| 20 20 24 73 75 62 6e 61 | 6d 65 20 3d 20 24 31 3b |  $subna|me = $1;|
|00001d80| 0d 09 09 20 20 20 20 24 | 73 75 62 6e 61 6d 65 20 |...    $|subname |
|00001d90| 3d 20 22 6d 61 69 6e 27 | 22 20 2e 20 24 73 75 62 |= "main'|" . $sub|
|00001da0| 6e 61 6d 65 20 75 6e 6c | 65 73 73 20 24 73 75 62 |name unl|ess $sub|
|00001db0| 6e 61 6d 65 20 3d 7e 20 | 2f 27 2f 3b 0d 09 09 20 |name =~ |/'/;... |
|00001dc0| 20 20 20 24 73 75 62 6e | 61 6d 65 20 3d 20 22 6d |   $subn|ame = "m|
|00001dd0| 61 69 6e 22 20 2e 20 24 | 73 75 62 6e 61 6d 65 20 |ain" . $|subname |
|00001de0| 69 66 20 73 75 62 73 74 | 72 28 24 73 75 62 6e 61 |if subst|r($subna|
|00001df0| 6d 65 2c 30 2c 31 29 20 | 65 71 20 22 27 22 3b 0d |me,0,1) |eq "'";.|
|00001e00| 09 09 20 20 20 20 28 24 | 66 69 6c 65 2c 24 73 75 |..    ($|file,$su|
|00001e10| 62 72 61 6e 67 65 29 20 | 3d 20 73 70 6c 69 74 28 |brange) |= split(|
|00001e20| 2f 3a 2f 2c 24 73 75 62 | 7b 24 73 75 62 6e 61 6d |/:/,$sub|{$subnam|
|00001e30| 65 7d 29 3b 0d 09 09 20 | 20 20 20 69 66 20 28 24 |e});... |   if ($|
|00001e40| 66 69 6c 65 20 6e 65 20 | 24 66 69 6c 65 6e 61 6d |file ne |$filenam|
|00001e50| 65 29 20 7b 0d 09 09 09 | 2a 64 62 6c 69 6e 65 20 |e) {....|*dbline |
|00001e60| 3d 20 22 5f 3c 24 66 69 | 6c 65 22 3b 0d 09 09 09 |= "_<$fi|le";....|
|00001e70| 24 6d 61 78 20 3d 20 24 | 23 64 62 6c 69 6e 65 3b |$max = $|#dbline;|
|00001e80| 0d 09 09 09 24 66 69 6c | 65 6e 61 6d 65 20 3d 20 |....$fil|ename = |
|00001e90| 24 66 69 6c 65 3b 0d 09 | 09 20 20 20 20 7d 0d 09 |$file;..|.    }..|
|00001ea0| 09 20 20 20 20 69 66 20 | 28 24 73 75 62 72 61 6e |.    if |($subran|
|00001eb0| 67 65 29 20 7b 0d 09 09 | 09 69 66 20 28 65 76 61 |ge) {...|.if (eva|
|00001ec0| 6c 28 24 73 75 62 72 61 | 6e 67 65 29 20 3c 20 2d |l($subra|nge) < -|
|00001ed0| 24 77 69 6e 64 6f 77 29 | 20 7b 0d 09 09 09 20 20 |$window)| {....  |
|00001ee0| 20 20 24 73 75 62 72 61 | 6e 67 65 20 3d 7e 20 73 |  $subra|nge =~ s|
|00001ef0| 2f 2d 2e 2a 2f 2b 2f 3b | 0d 09 09 09 7d 0d 09 09 |/-.*/+/;|....}...|
|00001f00| 09 24 63 6d 64 20 3d 20 | 22 6c 20 24 73 75 62 72 |.$cmd = |"l $subr|
|00001f10| 61 6e 67 65 22 3b 0d 09 | 09 20 20 20 20 7d 20 65 |ange";..|.    } e|
|00001f20| 6c 73 65 20 7b 0d 09 09 | 09 70 72 69 6e 74 20 4f |lse {...|.print O|
|00001f30| 55 54 20 22 53 75 62 72 | 6f 75 74 69 6e 65 20 24 |UT "Subr|outine $|
|00001f40| 31 20 6e 6f 74 20 66 6f | 75 6e 64 2e 5c 6e 22 3b |1 not fo|und.\n";|
|00001f50| 0d 09 09 09 6e 65 78 74 | 20 43 4d 44 3b 0d 09 09 |....next| CMD;...|
|00001f60| 20 20 20 20 7d 20 7d 3b | 0d 09 09 24 63 6d 64 20 |    } };|...$cmd |
|00001f70| 3d 7e 20 2f 5e 77 5c 62 | 5c 73 2a 28 5c 64 2a 29 |=~ /^w\b|\s*(\d*)|
|00001f80| 24 2f 20 26 26 20 64 6f | 20 7b 0d 09 09 20 20 20 |$/ && do| {...   |
|00001f90| 20 24 69 6e 63 72 20 3d | 20 24 77 69 6e 64 6f 77 | $incr =| $window|
|00001fa0| 20 2d 20 31 3b 0d 09 09 | 20 20 20 20 24 73 74 61 | - 1;...|    $sta|
|00001fb0| 72 74 20 3d 20 24 31 20 | 69 66 20 24 31 3b 0d 09 |rt = $1 |if $1;..|
|00001fc0| 09 20 20 20 20 24 73 74 | 61 72 74 20 2d 3d 20 24 |.    $st|art -= $|
|00001fd0| 70 72 65 76 69 65 77 3b | 0d 09 09 20 20 20 20 24 |preview;|...    $|
|00001fe0| 63 6d 64 20 3d 20 27 6c | 20 27 20 2e 20 24 73 74 |cmd = 'l| ' . $st|
|00001ff0| 61 72 74 20 2e 20 27 2d | 27 20 2e 20 28 24 73 74 |art . '-|' . ($st|
|00002000| 61 72 74 20 2b 20 24 69 | 6e 63 72 29 3b 20 7d 3b |art + $i|ncr); };|
|00002010| 0d 09 09 24 63 6d 64 20 | 3d 7e 20 2f 5e 2d 24 2f |...$cmd |=~ /^-$/|
|00002020| 20 26 26 20 64 6f 20 7b | 0d 09 09 20 20 20 20 24 | && do {|...    $|
|00002030| 69 6e 63 72 20 3d 20 24 | 77 69 6e 64 6f 77 20 2d |incr = $|window -|
|00002040| 20 31 3b 0d 09 09 20 20 | 20 20 24 63 6d 64 20 3d | 1;...  |  $cmd =|
|00002050| 20 27 6c 20 27 20 2e 20 | 28 24 73 74 61 72 74 2d | 'l ' . |($start-|
|00002060| 24 77 69 6e 64 6f 77 2a | 32 29 20 2e 20 27 2b 27 |$window*|2) . '+'|
|00002070| 3b 20 7d 3b 0d 09 09 24 | 63 6d 64 20 3d 7e 20 2f |; };...$|cmd =~ /|
|00002080| 5e 6c 24 2f 20 26 26 20 | 64 6f 20 7b 0d 09 09 20 |^l$/ && |do {... |
|00002090| 20 20 20 24 69 6e 63 72 | 20 3d 20 24 77 69 6e 64 |   $incr| = $wind|
|000020a0| 6f 77 20 2d 20 31 3b 0d | 09 09 20 20 20 20 24 63 |ow - 1;.|..    $c|
|000020b0| 6d 64 20 3d 20 27 6c 20 | 27 20 2e 20 24 73 74 61 |md = 'l |' . $sta|
|000020c0| 72 74 20 2e 20 27 2d 27 | 20 2e 20 28 24 73 74 61 |rt . '-'| . ($sta|
|000020d0| 72 74 20 2b 20 24 69 6e | 63 72 29 3b 20 7d 3b 0d |rt + $in|cr); };.|
|000020e0| 09 09 24 63 6d 64 20 3d | 7e 20 2f 5e 6c 5c 62 5c |..$cmd =|~ /^l\b\|
|000020f0| 73 2a 28 5c 64 2a 29 5c | 2b 28 5c 64 2a 29 24 2f |s*(\d*)\|+(\d*)$/|
|00002100| 20 26 26 20 64 6f 20 7b | 0d 09 09 20 20 20 20 24 | && do {|...    $|
|00002110| 73 74 61 72 74 20 3d 20 | 24 31 20 69 66 20 24 31 |start = |$1 if $1|
|00002120| 3b 0d 09 09 20 20 20 20 | 24 69 6e 63 72 20 3d 20 |;...    |$incr = |
|00002130| 24 32 3b 0d 09 09 20 20 | 20 20 24 69 6e 63 72 20 |$2;...  |  $incr |
|00002140| 3d 20 24 77 69 6e 64 6f | 77 20 2d 20 31 20 75 6e |= $windo|w - 1 un|
|00002150| 6c 65 73 73 20 24 69 6e | 63 72 3b 0d 09 09 20 20 |less $in|cr;...  |
|00002160| 20 20 24 63 6d 64 20 3d | 20 27 6c 20 27 20 2e 20 |  $cmd =| 'l ' . |
|00002170| 24 73 74 61 72 74 20 2e | 20 27 2d 27 20 2e 20 28 |$start .| '-' . (|
|00002180| 24 73 74 61 72 74 20 2b | 20 24 69 6e 63 72 29 3b |$start +| $incr);|
|00002190| 20 7d 3b 0d 09 09 24 63 | 6d 64 20 3d 7e 20 2f 5e | };...$c|md =~ /^|
|000021a0| 6c 5c 62 5c 73 2a 28 28 | 5b 5c 64 5c 24 5c 2e 5d |l\b\s*((|[\d\$\.]|
|000021b0| 2b 29 28 5b 2d 2c 5d 28 | 5b 5c 64 5c 24 5c 2e 5d |+)([-,](|[\d\$\.]|
|000021c0| 2b 29 29 3f 29 3f 2f 20 | 26 26 20 64 6f 20 7b 0d |+))?)?/ |&& do {.|
|000021d0| 09 09 20 20 20 20 24 65 | 6e 64 20 3d 20 28 21 24 |..    $e|nd = (!$|
|000021e0| 32 29 20 3f 20 24 6d 61 | 78 20 3a 20 28 24 34 20 |2) ? $ma|x : ($4 |
|000021f0| 3f 20 24 34 20 3a 20 24 | 32 29 3b 0d 09 09 20 20 |? $4 : $|2);...  |
|00002200| 20 20 24 65 6e 64 20 3d | 20 24 6d 61 78 20 69 66 |  $end =| $max if|
|00002210| 20 24 65 6e 64 20 3e 20 | 24 6d 61 78 3b 0d 09 09 | $end > |$max;...|
|00002220| 20 20 20 20 24 69 20 3d | 20 24 32 3b 0d 09 09 20 |    $i =| $2;... |
|00002230| 20 20 20 24 69 20 3d 20 | 24 6c 69 6e 65 20 69 66 |   $i = |$line if|
|00002240| 20 24 69 20 65 71 20 27 | 2e 27 3b 0d 09 09 20 20 | $i eq '|.';...  |
|00002250| 20 20 24 69 20 3d 20 31 | 20 69 66 20 24 69 20 3c |  $i = 1| if $i <|
|00002260| 20 31 3b 0d 09 09 20 20 | 20 20 69 66 20 28 24 65 | 1;...  |  if ($e|
|00002270| 6d 61 63 73 29 20 7b 0d | 09 09 09 70 72 69 6e 74 |macs) {.|...print|
|00002280| 20 4f 55 54 20 22 5c 30 | 33 32 5c 30 33 32 24 66 | OUT "\0|32\032$f|
|00002290| 69 6c 65 6e 61 6d 65 3a | 24 69 3a 30 5c 6e 22 3b |ilename:|$i:0\n";|
|000022a0| 0d 09 09 09 24 69 20 3d | 20 24 65 6e 64 3b 0d 09 |....$i =| $end;..|
|000022b0| 09 20 20 20 20 7d 20 65 | 6c 73 65 20 7b 0d 09 09 |.    } e|lse {...|
|000022c0| 09 66 6f 72 20 28 3b 20 | 24 69 20 3c 3d 20 24 65 |.for (; |$i <= $e|
|000022d0| 6e 64 3b 20 24 69 2b 2b | 29 20 7b 0d 09 09 09 20 |nd; $i++|) {.... |
|000022e0| 20 20 20 70 72 69 6e 74 | 20 4f 55 54 20 22 24 69 |   print| OUT "$i|
|000022f0| 3a 5c 74 22 2c 20 24 64 | 62 6c 69 6e 65 5b 24 69 |:\t", $d|bline[$i|
|00002300| 5d 3b 0d 09 09 09 20 20 | 20 20 6c 61 73 74 20 69 |];....  |  last i|
|00002310| 66 20 24 73 69 67 6e 61 | 6c 3b 0d 09 09 09 7d 0d |f $signa|l;....}.|
|00002320| 09 09 20 20 20 20 7d 0d | 09 09 20 20 20 20 24 73 |..    }.|..    $s|
|00002330| 74 61 72 74 20 3d 20 24 | 69 3b 09 23 20 72 65 6d |tart = $|i;.# rem|
|00002340| 65 6d 62 65 72 20 69 6e | 20 63 61 73 65 20 74 68 |ember in| case th|
|00002350| 65 79 20 77 61 6e 74 20 | 6d 6f 72 65 0d 09 09 20 |ey want |more... |
|00002360| 20 20 20 24 73 74 61 72 | 74 20 3d 20 24 6d 61 78 |   $star|t = $max|
|00002370| 20 69 66 20 24 73 74 61 | 72 74 20 3e 20 24 6d 61 | if $sta|rt > $ma|
|00002380| 78 3b 0d 09 09 20 20 20 | 20 6e 65 78 74 20 43 4d |x;...   | next CM|
|00002390| 44 3b 20 7d 3b 0d 09 09 | 24 63 6d 64 20 3d 7e 20 |D; };...|$cmd =~ |
|000023a0| 2f 5e 44 24 2f 20 26 26 | 20 64 6f 20 7b 0d 09 09 |/^D$/ &&| do {...|
|000023b0| 20 20 20 20 70 72 69 6e | 74 20 4f 55 54 20 22 44 |    prin|t OUT "D|
|000023c0| 65 6c 65 74 69 6e 67 20 | 61 6c 6c 20 62 72 65 61 |eleting |all brea|
|000023d0| 6b 70 6f 69 6e 74 73 2e | 2e 2e 5c 6e 22 3b 0d 09 |kpoints.|..\n";..|
|000023e0| 09 20 20 20 20 66 6f 72 | 20 28 24 69 20 3d 20 31 |.    for| ($i = 1|
|000023f0| 3b 20 24 69 20 3c 3d 20 | 24 6d 61 78 20 3b 20 24 |; $i <= |$max ; $|
|00002400| 69 2b 2b 29 20 7b 0d 09 | 09 09 69 66 20 28 64 65 |i++) {..|..if (de|
|00002410| 66 69 6e 65 64 20 24 64 | 62 6c 69 6e 65 7b 24 69 |fined $d|bline{$i|
|00002420| 7d 29 20 7b 0d 09 09 09 | 20 20 20 20 24 64 62 6c |}) {....|    $dbl|
|00002430| 69 6e 65 7b 24 69 7d 20 | 3d 7e 20 73 2f 5e 5b 5e |ine{$i} |=~ s/^[^|
|00002440| 5c 30 5d 2b 2f 2f 3b 0d | 09 09 09 20 20 20 20 69 |\0]+//;.|...    i|
|00002450| 66 20 28 24 64 62 6c 69 | 6e 65 7b 24 69 7d 20 3d |f ($dbli|ne{$i} =|
|00002460| 7e 20 73 2f 5e 5c 30 3f | 24 2f 2f 29 20 7b 0d 09 |~ s/^\0?|$//) {..|
|00002470| 09 09 09 64 65 6c 65 74 | 65 20 24 64 62 6c 69 6e |...delet|e $dblin|
|00002480| 65 7b 24 69 7d 3b 0d 09 | 09 09 20 20 20 20 7d 0d |e{$i};..|..    }.|
|00002490| 09 09 09 7d 0d 09 09 20 | 20 20 20 7d 0d 09 09 20 |...}... |   }... |
|000024a0| 20 20 20 6e 65 78 74 20 | 43 4d 44 3b 20 7d 3b 0d |   next |CMD; };.|
|000024b0| 09 09 24 63 6d 64 20 3d | 7e 20 2f 5e 4c 24 2f 20 |..$cmd =|~ /^L$/ |
|000024c0| 26 26 20 64 6f 20 7b 0d | 09 09 20 20 20 20 66 6f |&& do {.|..    fo|
|000024d0| 72 20 28 24 69 20 3d 20 | 31 3b 20 24 69 20 3c 3d |r ($i = |1; $i <=|
|000024e0| 20 24 6d 61 78 3b 20 24 | 69 2b 2b 29 20 7b 0d 09 | $max; $|i++) {..|
|000024f0| 09 09 69 66 20 28 64 65 | 66 69 6e 65 64 20 24 64 |..if (de|fined $d|
|00002500| 62 6c 69 6e 65 7b 24 69 | 7d 29 20 7b 0d 09 09 09 |bline{$i|}) {....|
|00002510| 20 20 20 20 70 72 69 6e | 74 20 4f 55 54 20 22 24 |    prin|t OUT "$|
|00002520| 69 3a 5c 74 22 2c 20 24 | 64 62 6c 69 6e 65 5b 24 |i:\t", $|dbline[$|
|00002530| 69 5d 3b 0d 09 09 09 20 | 20 20 20 28 24 73 74 6f |i];.... |   ($sto|
|00002540| 70 2c 24 61 63 74 69 6f | 6e 29 20 3d 20 73 70 6c |p,$actio|n) = spl|
|00002550| 69 74 28 2f 5c 30 2f 2c | 20 24 64 62 6c 69 6e 65 |it(/\0/,| $dbline|
|00002560| 7b 24 69 7d 29 3b 0d 09 | 09 09 20 20 20 20 70 72 |{$i});..|..    pr|
|00002570| 69 6e 74 20 4f 55 54 20 | 22 20 20 62 72 65 61 6b |int OUT |"  break|
|00002580| 20 69 66 20 28 22 2c 20 | 24 73 74 6f 70 2c 20 22 | if (", |$stop, "|
|00002590| 29 5c 6e 22 20 0d 09 09 | 09 09 69 66 20 24 73 74 |)\n" ...|..if $st|
|000025a0| 6f 70 3b 0d 09 09 09 20 | 20 20 20 70 72 69 6e 74 |op;.... |   print|
|000025b0| 20 4f 55 54 20 22 20 20 | 61 63 74 69 6f 6e 3a 20 | OUT "  |action: |
|000025c0| 20 22 2c 20 24 61 63 74 | 69 6f 6e 2c 20 22 5c 6e | ", $act|ion, "\n|
|000025d0| 22 20 0d 09 09 09 09 69 | 66 20 24 61 63 74 69 6f |" .....i|f $actio|
|000025e0| 6e 3b 0d 09 09 09 20 20 | 20 20 6c 61 73 74 20 69 |n;....  |  last i|
|000025f0| 66 20 24 73 69 67 6e 61 | 6c 3b 0d 09 09 09 7d 0d |f $signa|l;....}.|
|00002600| 09 09 20 20 20 20 7d 0d | 09 09 20 20 20 20 6e 65 |..    }.|..    ne|
|00002610| 78 74 20 43 4d 44 3b 20 | 7d 3b 0d 09 09 24 63 6d |xt CMD; |};...$cm|
|00002620| 64 20 3d 7e 20 2f 5e 62 | 5c 62 5c 73 2a 28 5b 27 |d =~ /^b|\b\s*(['|
|00002630| 41 2d 5a 61 2d 7a 5f 5d | 5b 27 5c 77 5d 2a 29 5c |A-Za-z_]|['\w]*)\|
|00002640| 73 2a 28 2e 2a 29 2f 20 | 26 26 20 64 6f 20 7b 0d |s*(.*)/ |&& do {.|
|00002650| 09 09 20 20 20 20 24 73 | 75 62 6e 61 6d 65 20 3d |..    $s|ubname =|
|00002660| 20 24 31 3b 0d 09 09 20 | 20 20 20 24 63 6f 6e 64 | $1;... |   $cond|
|00002670| 20 3d 20 24 32 20 7c 7c | 20 27 31 27 3b 0d 09 09 | = $2 ||| '1';...|
|00002680| 20 20 20 20 24 73 75 62 | 6e 61 6d 65 20 3d 20 22 |    $sub|name = "|
|00002690| 24 70 61 63 6b 61 67 65 | 27 22 20 2e 20 24 73 75 |$package|'" . $su|
|000026a0| 62 6e 61 6d 65 20 75 6e | 6c 65 73 73 20 24 73 75 |bname un|less $su|
|000026b0| 62 6e 61 6d 65 20 3d 7e | 20 2f 27 2f 3b 0d 09 09 |bname =~| /'/;...|
|000026c0| 20 20 20 20 24 73 75 62 | 6e 61 6d 65 20 3d 20 22 |    $sub|name = "|
|000026d0| 6d 61 69 6e 22 20 2e 20 | 24 73 75 62 6e 61 6d 65 |main" . |$subname|
|000026e0| 20 69 66 20 73 75 62 73 | 74 72 28 24 73 75 62 6e | if subs|tr($subn|
|000026f0| 61 6d 65 2c 30 2c 31 29 | 20 65 71 20 22 27 22 3b |ame,0,1)| eq "'";|
|00002700| 0d 09 09 20 20 20 20 28 | 24 66 69 6c 65 6e 61 6d |...    (|$filenam|
|00002710| 65 2c 24 69 29 20 3d 20 | 73 70 6c 69 74 28 2f 3a |e,$i) = |split(/:|
|00002720| 2f 2c 20 24 73 75 62 7b | 24 73 75 62 6e 61 6d 65 |/, $sub{|$subname|
|00002730| 7d 29 3b 0d 09 09 20 20 | 20 20 24 69 20 2b 3d 20 |});...  |  $i += |
|00002740| 30 3b 0d 09 09 20 20 20 | 20 69 66 20 28 24 69 29 |0;...   | if ($i)|
|00002750| 20 7b 0d 09 09 09 2a 64 | 62 6c 69 6e 65 20 3d 20 | {....*d|bline = |
|00002760| 22 5f 3c 24 66 69 6c 65 | 6e 61 6d 65 22 3b 0d 09 |"_<$file|name";..|
|00002770| 09 09 2b 2b 24 69 20 77 | 68 69 6c 65 20 24 64 62 |..++$i w|hile $db|
|00002780| 6c 69 6e 65 5b 24 69 5d | 20 3d 3d 20 30 20 26 26 |line[$i]| == 0 &&|
|00002790| 20 24 69 20 3c 20 24 23 | 64 62 6c 69 6e 65 3b 0d | $i < $#|dbline;.|
|000027a0| 09 09 09 24 64 62 6c 69 | 6e 65 7b 24 69 7d 20 3d |...$dbli|ne{$i} =|
|000027b0| 7e 20 73 2f 5e 5b 5e 5c | 30 5d 2a 2f 24 63 6f 6e |~ s/^[^\|0]*/$con|
|000027c0| 64 2f 3b 0d 09 09 20 20 | 20 20 7d 20 65 6c 73 65 |d/;...  |  } else|
|000027d0| 20 7b 0d 09 09 09 70 72 | 69 6e 74 20 4f 55 54 20 | {....pr|int OUT |
|000027e0| 22 53 75 62 72 6f 75 74 | 69 6e 65 20 24 73 75 62 |"Subrout|ine $sub|
|000027f0| 6e 61 6d 65 20 6e 6f 74 | 20 66 6f 75 6e 64 2e 5c |name not| found.\|
|00002800| 6e 22 3b 0d 09 09 20 20 | 20 20 7d 0d 09 09 20 20 |n";...  |  }...  |
|00002810| 20 20 6e 65 78 74 20 43 | 4d 44 3b 20 7d 3b 0d 09 |  next C|MD; };..|
|00002820| 09 24 63 6d 64 20 3d 7e | 20 2f 5e 62 5c 62 5c 73 |.$cmd =~| /^b\b\s|
|00002830| 2a 28 5c 64 2a 29 5c 73 | 2a 28 2e 2a 29 2f 20 26 |*(\d*)\s|*(.*)/ &|
|00002840| 26 20 64 6f 20 7b 0d 09 | 09 20 20 20 20 24 69 20 |& do {..|.    $i |
|00002850| 3d 20 28 24 31 3f 24 31 | 3a 24 6c 69 6e 65 29 3b |= ($1?$1|:$line);|
|00002860| 0d 09 09 20 20 20 20 24 | 63 6f 6e 64 20 3d 20 24 |...    $|cond = $|
|00002870| 32 20 7c 7c 20 27 31 27 | 3b 0d 09 09 20 20 20 20 |2 || '1'|;...    |
|00002880| 69 66 20 28 24 64 62 6c | 69 6e 65 5b 24 69 5d 20 |if ($dbl|ine[$i] |
|00002890| 3d 3d 20 30 29 20 7b 0d | 09 09 09 70 72 69 6e 74 |== 0) {.|...print|
|000028a0| 20 4f 55 54 20 22 4c 69 | 6e 65 20 24 69 20 6e 6f | OUT "Li|ne $i no|
|000028b0| 74 20 62 72 65 61 6b 61 | 62 6c 65 2e 5c 6e 22 3b |t breaka|ble.\n";|
|000028c0| 0d 09 09 20 20 20 20 7d | 20 65 6c 73 65 20 7b 0d |...    }| else {.|
|000028d0| 09 09 09 24 64 62 6c 69 | 6e 65 7b 24 69 7d 20 3d |...$dbli|ne{$i} =|
|000028e0| 7e 20 73 2f 5e 5b 5e 5c | 30 5d 2a 2f 24 63 6f 6e |~ s/^[^\|0]*/$con|
|000028f0| 64 2f 3b 0d 09 09 20 20 | 20 20 7d 0d 09 09 20 20 |d/;...  |  }...  |
|00002900| 20 20 6e 65 78 74 20 43 | 4d 44 3b 20 7d 3b 0d 09 |  next C|MD; };..|
|00002910| 09 24 63 6d 64 20 3d 7e | 20 2f 5e 64 5c 62 5c 73 |.$cmd =~| /^d\b\s|
|00002920| 2a 28 5c 64 2b 29 3f 2f | 20 26 26 20 64 6f 20 7b |*(\d+)?/| && do {|
|00002930| 0d 09 09 20 20 20 20 24 | 69 20 3d 20 28 24 31 3f |...    $|i = ($1?|
|00002940| 24 31 3a 24 6c 69 6e 65 | 29 3b 0d 09 09 20 20 20 |$1:$line|);...   |
|00002950| 20 24 64 62 6c 69 6e 65 | 7b 24 69 7d 20 3d 7e 20 | $dbline|{$i} =~ |
|00002960| 73 2f 5e 5b 5e 5c 30 5d | 2a 2f 2f 3b 0d 09 09 20 |s/^[^\0]|*//;... |
|00002970| 20 20 20 64 65 6c 65 74 | 65 20 24 64 62 6c 69 6e |   delet|e $dblin|
|00002980| 65 7b 24 69 7d 20 69 66 | 20 24 64 62 6c 69 6e 65 |e{$i} if| $dbline|
|00002990| 7b 24 69 7d 20 65 71 20 | 27 27 3b 0d 09 09 20 20 |{$i} eq |'';...  |
|000029a0| 20 20 6e 65 78 74 20 43 | 4d 44 3b 20 7d 3b 0d 09 |  next C|MD; };..|
|000029b0| 09 24 63 6d 64 20 3d 7e | 20 2f 5e 41 24 2f 20 26 |.$cmd =~| /^A$/ &|
|000029c0| 26 20 64 6f 20 7b 0d 09 | 09 20 20 20 20 66 6f 72 |& do {..|.    for|
|000029d0| 20 28 24 69 20 3d 20 31 | 3b 20 24 69 20 3c 3d 20 | ($i = 1|; $i <= |
|000029e0| 24 6d 61 78 20 3b 20 24 | 69 2b 2b 29 20 7b 0d 09 |$max ; $|i++) {..|
|000029f0| 09 09 69 66 20 28 64 65 | 66 69 6e 65 64 20 24 64 |..if (de|fined $d|
|00002a00| 62 6c 69 6e 65 7b 24 69 | 7d 29 20 7b 0d 09 09 09 |bline{$i|}) {....|
|00002a10| 20 20 20 20 24 64 62 6c | 69 6e 65 7b 24 69 7d 20 |    $dbl|ine{$i} |
|00002a20| 3d 7e 20 73 2f 5c 30 5b | 5e 5c 30 5d 2a 2f 2f 3b |=~ s/\0[|^\0]*//;|
|00002a30| 0d 09 09 09 20 20 20 20 | 64 65 6c 65 74 65 20 24 |....    |delete $|
|00002a40| 64 62 6c 69 6e 65 7b 24 | 69 7d 20 69 66 20 24 64 |dbline{$|i} if $d|
|00002a50| 62 6c 69 6e 65 7b 24 69 | 7d 20 65 71 20 27 27 3b |bline{$i|} eq '';|
|00002a60| 0d 09 09 09 7d 0d 09 09 | 20 20 20 20 7d 0d 09 09 |....}...|    }...|
|00002a70| 20 20 20 20 6e 65 78 74 | 20 43 4d 44 3b 20 7d 3b |    next| CMD; };|
|00002a80| 0d 09 09 24 63 6d 64 20 | 3d 7e 20 2f 5e 3c 5c 73 |...$cmd |=~ /^<\s|
|00002a90| 2a 28 2e 2a 29 2f 20 26 | 26 20 64 6f 20 7b 0d 09 |*(.*)/ &|& do {..|
|00002aa0| 09 20 20 20 20 24 70 72 | 65 20 3d 20 64 6f 20 61 |.    $pr|e = do a|
|00002ab0| 63 74 69 6f 6e 28 24 31 | 29 3b 0d 09 09 20 20 20 |ction($1|);...   |
|00002ac0| 20 6e 65 78 74 20 43 4d | 44 3b 20 7d 3b 0d 09 09 | next CM|D; };...|
|00002ad0| 24 63 6d 64 20 3d 7e 20 | 2f 5e 3e 5c 73 2a 28 2e |$cmd =~ |/^>\s*(.|
|00002ae0| 2a 29 2f 20 26 26 20 64 | 6f 20 7b 0d 09 09 20 20 |*)/ && d|o {...  |
|00002af0| 20 20 24 70 6f 73 74 20 | 3d 20 64 6f 20 61 63 74 |  $post |= do act|
|00002b00| 69 6f 6e 28 24 31 29 3b | 0d 09 09 20 20 20 20 6e |ion($1);|...    n|
|00002b10| 65 78 74 20 43 4d 44 3b | 20 7d 3b 0d 09 09 24 63 |ext CMD;| };...$c|
|00002b20| 6d 64 20 3d 7e 20 2f 5e | 61 5c 62 5c 73 2a 28 5c |md =~ /^|a\b\s*(\|
|00002b30| 64 2b 29 28 5c 73 2b 28 | 2e 2a 29 29 3f 2f 20 26 |d+)(\s+(|.*))?/ &|
|00002b40| 26 20 64 6f 20 7b 0d 09 | 09 20 20 20 20 24 69 20 |& do {..|.    $i |
|00002b50| 3d 20 24 31 3b 0d 09 09 | 20 20 20 20 69 66 20 28 |= $1;...|    if (|
|00002b60| 24 64 62 6c 69 6e 65 5b | 24 69 5d 20 3d 3d 20 30 |$dbline[|$i] == 0|
|00002b70| 29 20 7b 0d 09 09 09 70 | 72 69 6e 74 20 4f 55 54 |) {....p|rint OUT|
|00002b80| 20 22 4c 69 6e 65 20 24 | 69 20 6d 61 79 20 6e 6f | "Line $|i may no|
|00002b90| 74 20 68 61 76 65 20 61 | 6e 20 61 63 74 69 6f 6e |t have a|n action|
|00002ba0| 2e 5c 6e 22 3b 0d 09 09 | 20 20 20 20 7d 20 65 6c |.\n";...|    } el|
|00002bb0| 73 65 20 7b 0d 09 09 09 | 24 64 62 6c 69 6e 65 7b |se {....|$dbline{|
|00002bc0| 24 69 7d 20 3d 7e 20 73 | 2f 5c 30 5b 5e 5c 30 5d |$i} =~ s|/\0[^\0]|
|00002bd0| 2a 2f 2f 3b 0d 09 09 09 | 24 64 62 6c 69 6e 65 7b |*//;....|$dbline{|
|00002be0| 24 69 7d 20 2e 3d 20 22 | 5c 30 22 20 2e 20 64 6f |$i} .= "|\0" . do|
|00002bf0| 20 61 63 74 69 6f 6e 28 | 24 33 29 3b 0d 09 09 20 | action(|$3);... |
|00002c00| 20 20 20 7d 0d 09 09 20 | 20 20 20 6e 65 78 74 20 |   }... |   next |
|00002c10| 43 4d 44 3b 20 7d 3b 0d | 09 09 24 63 6d 64 20 3d |CMD; };.|..$cmd =|
|00002c20| 7e 20 2f 5e 6e 24 2f 20 | 26 26 20 64 6f 20 7b 0d |~ /^n$/ |&& do {.|
|00002c30| 09 09 20 20 20 20 24 73 | 69 6e 67 6c 65 20 3d 20 |..    $s|ingle = |
|00002c40| 32 3b 0d 09 09 20 20 20 | 20 24 6c 61 73 74 73 74 |2;...   | $lastst|
|00002c50| 65 70 20 3d 20 24 63 6d | 64 3b 0d 09 09 20 20 20 |ep = $cm|d;...   |
|00002c60| 20 6c 61 73 74 20 43 4d | 44 3b 20 7d 3b 0d 09 09 | last CM|D; };...|
|00002c70| 24 63 6d 64 20 3d 7e 20 | 2f 5e 73 24 2f 20 26 26 |$cmd =~ |/^s$/ &&|
|00002c80| 20 64 6f 20 7b 0d 09 09 | 20 20 20 20 24 73 69 6e | do {...|    $sin|
|00002c90| 67 6c 65 20 3d 20 31 3b | 0d 09 09 20 20 20 20 24 |gle = 1;|...    $|
|00002ca0| 6c 61 73 74 73 74 65 70 | 20 3d 20 24 63 6d 64 3b |laststep| = $cmd;|
|00002cb0| 0d 09 09 20 20 20 20 6c | 61 73 74 20 43 4d 44 3b |...    l|ast CMD;|
|00002cc0| 20 7d 3b 0d 09 09 24 63 | 6d 64 20 3d 7e 20 2f 5e | };...$c|md =~ /^|
|00002cd0| 63 5c 62 5c 73 2a 28 5c | 64 2a 29 5c 73 2a 24 2f |c\b\s*(\|d*)\s*$/|
|00002ce0| 20 26 26 20 64 6f 20 7b | 0d 09 09 20 20 20 20 24 | && do {|...    $|
|00002cf0| 69 20 3d 20 24 31 3b 0d | 09 09 20 20 20 20 69 66 |i = $1;.|..    if|
|00002d00| 20 28 24 69 29 20 7b 0d | 09 09 09 69 66 20 28 24 | ($i) {.|...if ($|
|00002d10| 64 62 6c 69 6e 65 5b 24 | 69 5d 20 3d 3d 20 30 29 |dbline[$|i] == 0)|
|00002d20| 20 7b 0d 09 09 09 20 20 | 20 20 70 72 69 6e 74 20 | {....  |  print |
|00002d30| 4f 55 54 20 22 4c 69 6e | 65 20 24 69 20 6e 6f 74 |OUT "Lin|e $i not|
|00002d40| 20 62 72 65 61 6b 61 62 | 6c 65 2e 5c 6e 22 3b 0d | breakab|le.\n";.|
|00002d50| 09 09 09 20 20 20 20 6e | 65 78 74 20 43 4d 44 3b |...    n|ext CMD;|
|00002d60| 0d 09 09 09 7d 0d 09 09 | 09 24 64 62 6c 69 6e 65 |....}...|.$dbline|
|00002d70| 7b 24 69 7d 20 3d 7e 20 | 73 2f 28 5c 30 7c 24 29 |{$i} =~ |s/(\0|$)|
|00002d80| 2f 3b 39 24 31 2f 3b 09 | 23 20 61 64 64 20 6f 6e |/;9$1/;.|# add on|
|00002d90| 65 2d 74 69 6d 65 2d 6f | 6e 6c 79 20 62 2e 70 2e |e-time-o|nly b.p.|
|00002da0| 0d 09 09 20 20 20 20 7d | 0d 09 09 20 20 20 20 66 |...    }|...    f|
|00002db0| 6f 72 20 28 24 69 3d 30 | 3b 20 24 69 20 3c 3d 20 |or ($i=0|; $i <= |
|00002dc0| 24 23 73 74 61 63 6b 3b | 20 29 20 7b 0d 09 09 09 |$#stack;| ) {....|
|00002dd0| 24 73 74 61 63 6b 5b 24 | 69 2b 2b 5d 20 26 3d 20 |$stack[$|i++] &= |
|00002de0| 7e 31 3b 0d 09 09 20 20 | 20 20 7d 0d 09 09 20 20 |~1;...  |  }...  |
|00002df0| 20 20 6c 61 73 74 20 43 | 4d 44 3b 20 7d 3b 0d 09 |  last C|MD; };..|
|00002e00| 09 24 63 6d 64 20 3d 7e | 20 2f 5e 72 24 2f 20 26 |.$cmd =~| /^r$/ &|
|00002e10| 26 20 64 6f 20 7b 0d 09 | 09 20 20 20 20 24 73 74 |& do {..|.    $st|
|00002e20| 61 63 6b 5b 24 23 73 74 | 61 63 6b 5d 20 7c 3d 20 |ack[$#st|ack] |= |
|00002e30| 32 3b 0d 09 09 20 20 20 | 20 6c 61 73 74 20 43 4d |2;...   | last CM|
|00002e40| 44 3b 20 7d 3b 0d 09 09 | 24 63 6d 64 20 3d 7e 20 |D; };...|$cmd =~ |
|00002e50| 2f 5e 54 24 2f 20 26 26 | 20 64 6f 20 7b 0d 09 09 |/^T$/ &&| do {...|
|00002e60| 20 20 20 20 6c 6f 63 61 | 6c 28 24 70 2c 24 66 2c |    loca|l($p,$f,|
|00002e70| 24 6c 2c 24 73 2c 24 68 | 2c 24 61 2c 40 61 2c 40 |$l,$s,$h|,$a,@a,@|
|00002e80| 73 75 62 29 3b 0d 09 09 | 20 20 20 20 66 6f 72 20 |sub);...|    for |
|00002e90| 28 24 69 20 3d 20 31 3b | 20 28 24 70 2c 24 66 2c |($i = 1;| ($p,$f,|
|00002ea0| 24 6c 2c 24 73 2c 24 68 | 2c 24 77 29 20 3d 20 63 |$l,$s,$h|,$w) = c|
|00002eb0| 61 6c 6c 65 72 28 24 69 | 29 3b 20 24 69 2b 2b 29 |aller($i|); $i++)|
|00002ec0| 20 7b 0d 09 09 09 40 61 | 20 3d 20 40 61 72 67 73 | {....@a| = @args|
|00002ed0| 3b 0d 09 09 09 66 6f 72 | 20 28 40 61 29 20 7b 0d |;....for| (@a) {.|
|00002ee0| 09 09 09 20 20 20 20 69 | 66 20 28 2f 5e 53 74 42 |...    i|f (/^StB|
|00002ef0| 5c 30 30 30 2f 20 26 26 | 20 6c 65 6e 67 74 68 28 |\000/ &&| length(|
|00002f00| 24 5f 29 20 3d 3d 20 6c | 65 6e 67 74 68 28 24 5f |$_) == l|ength($_|
|00002f10| 6d 61 69 6e 7b 27 5f 6d | 61 69 6e 27 7d 29 29 20 |main{'_m|ain'})) |
|00002f20| 7b 0d 09 09 09 09 24 5f | 20 3d 20 73 70 72 69 6e |{.....$_| = sprin|
|00002f30| 74 66 28 22 25 73 22 2c | 24 5f 29 3b 0d 09 09 09 |tf("%s",|$_);....|
|00002f40| 20 20 20 20 7d 0d 09 09 | 09 20 20 20 20 65 6c 73 |    }...|.    els|
|00002f50| 65 20 7b 0d 09 09 09 09 | 73 2f 27 2f 5c 5c 27 2f |e {.....|s/'/\\'/|
|00002f60| 67 3b 0d 09 09 09 09 73 | 2f 28 5b 5e 5c 30 5d 2a |g;.....s|/([^\0]*|
|00002f70| 29 2f 27 24 31 27 2f 20 | 75 6e 6c 65 73 73 20 2f |)/'$1'/ |unless /|
|00002f80| 5e 2d 3f 5b 5c 64 2e 5d | 2b 24 2f 3b 0d 09 09 09 |^-?[\d.]|+$/;....|
|00002f90| 09 73 2f 28 5b 5c 32 30 | 30 2d 5c 33 37 37 5d 29 |.s/([\20|0-\377])|
|00002fa0| 2f 73 70 72 69 6e 74 66 | 28 22 4d 2d 25 63 22 2c |/sprintf|("M-%c",|
|00002fb0| 6f 72 64 28 24 31 29 26 | 30 31 37 37 29 2f 65 67 |ord($1)&|0177)/eg|
|00002fc0| 3b 0d 09 09 09 09 73 2f | 28 5b 5c 30 2d 5c 33 37 |;.....s/|([\0-\37|
|00002fd0| 5c 31 37 37 5d 29 2f 73 | 70 72 69 6e 74 66 28 22 |\177])/s|printf("|
|00002fe0| 5e 25 63 22 2c 6f 72 64 | 28 24 31 29 5e 36 34 29 |^%c",ord|($1)^64)|
|00002ff0| 2f 65 67 3b 0d 09 09 09 | 20 20 20 20 7d 0d 09 09 |/eg;....|    }...|
|00003000| 09 7d 0d 09 09 09 24 77 | 20 3d 20 24 77 20 3f 20 |.}....$w| = $w ? |
|00003010| 27 40 20 3d 20 27 20 3a | 20 27 24 20 3d 20 27 3b |'@ = ' :| '$ = ';|
|00003020| 0d 09 09 09 24 61 20 3d | 20 24 68 20 3f 20 27 28 |....$a =| $h ? '(|
|00003030| 27 20 2e 20 6a 6f 69 6e | 28 27 2c 20 27 2c 20 40 |' . join|(', ', @|
|00003040| 61 29 20 2e 20 27 29 27 | 20 3a 20 27 27 3b 0d 09 |a) . ')'| : '';..|
|00003050| 09 09 70 75 73 68 28 40 | 73 75 62 2c 20 22 24 77 |..push(@|sub, "$w|
|00003060| 26 24 73 24 61 20 66 72 | 6f 6d 20 66 69 6c 65 20 |&$s$a fr|om file |
|00003070| 24 66 20 6c 69 6e 65 20 | 24 6c 5c 6e 22 29 3b 0d |$f line |$l\n");.|
|00003080| 09 09 09 6c 61 73 74 20 | 69 66 20 24 73 69 67 6e |...last |if $sign|
|00003090| 61 6c 3b 0d 09 09 20 20 | 20 20 7d 0d 09 09 20 20 |al;...  |  }...  |
|000030a0| 20 20 66 6f 72 20 28 24 | 69 3d 30 3b 20 24 69 20 |  for ($|i=0; $i |
|000030b0| 3c 3d 20 24 23 73 75 62 | 3b 20 24 69 2b 2b 29 20 |<= $#sub|; $i++) |
|000030c0| 7b 0d 09 09 09 6c 61 73 | 74 20 69 66 20 24 73 69 |{....las|t if $si|
|000030d0| 67 6e 61 6c 3b 0d 09 09 | 09 70 72 69 6e 74 20 4f |gnal;...|.print O|
|000030e0| 55 54 20 24 73 75 62 5b | 24 69 5d 3b 0d 09 09 20 |UT $sub[|$i];... |
|000030f0| 20 20 20 7d 0d 09 09 20 | 20 20 20 6e 65 78 74 20 |   }... |   next |
|00003100| 43 4d 44 3b 20 7d 3b 0d | 09 09 24 63 6d 64 20 3d |CMD; };.|..$cmd =|
|00003110| 7e 20 2f 5e 5c 2f 28 2e | 2a 29 24 2f 20 26 26 20 |~ /^\/(.|*)$/ && |
|00003120| 64 6f 20 7b 0d 09 09 20 | 20 20 20 24 69 6e 70 61 |do {... |   $inpa|
|00003130| 74 20 3d 20 24 31 3b 0d | 09 09 20 20 20 20 24 69 |t = $1;.|..    $i|
|00003140| 6e 70 61 74 20 3d 7e 20 | 73 3a 28 5b 5e 5c 5c 5d |npat =~ |s:([^\\]|
|00003150| 29 2f 24 3a 24 31 3a 3b | 0d 09 09 20 20 20 20 69 |)/$:$1:;|...    i|
|00003160| 66 20 28 24 69 6e 70 61 | 74 20 6e 65 20 22 22 29 |f ($inpa|t ne "")|
|00003170| 20 7b 0d 09 09 09 65 76 | 61 6c 20 27 24 69 6e 70 | {....ev|al '$inp|
|00003180| 61 74 20 3d 7e 20 6d 27 | 2e 22 5c 6e 24 69 6e 70 |at =~ m'|."\n$inp|
|00003190| 61 74 5c 6e 22 3b 09 0d | 09 09 09 69 66 20 28 24 |at\n";..|...if ($|
|000031a0| 40 20 6e 65 20 22 22 29 | 20 7b 0d 09 09 09 20 20 |@ ne "")| {....  |
|000031b0| 20 20 70 72 69 6e 74 20 | 4f 55 54 20 22 24 40 22 |  print |OUT "$@"|
|000031c0| 3b 0d 09 09 09 20 20 20 | 20 6e 65 78 74 20 43 4d |;....   | next CM|
|000031d0| 44 3b 0d 09 09 09 7d 0d | 09 09 09 24 70 61 74 20 |D;....}.|...$pat |
|000031e0| 3d 20 24 69 6e 70 61 74 | 3b 0d 09 09 20 20 20 20 |= $inpat|;...    |
|000031f0| 7d 0d 09 09 20 20 20 20 | 24 65 6e 64 20 3d 20 24 |}...    |$end = $|
|00003200| 73 74 61 72 74 3b 0d 09 | 09 20 20 20 20 65 76 61 |start;..|.    eva|
|00003210| 6c 20 27 0d 09 09 20 20 | 20 20 66 6f 72 20 28 3b |l '...  |  for (;|
|00003220| 3b 29 20 7b 0d 09 09 09 | 2b 2b 24 73 74 61 72 74 |;) {....|++$start|
|00003230| 3b 0d 09 09 09 24 73 74 | 61 72 74 20 3d 20 31 20 |;....$st|art = 1 |
|00003240| 69 66 20 28 24 73 74 61 | 72 74 20 3e 20 24 6d 61 |if ($sta|rt > $ma|
|00003250| 78 29 3b 0d 09 09 09 6c | 61 73 74 20 69 66 20 28 |x);....l|ast if (|
|00003260| 24 73 74 61 72 74 20 3d | 3d 20 24 65 6e 64 29 3b |$start =|= $end);|
|00003270| 0d 09 09 09 69 66 20 28 | 24 64 62 6c 69 6e 65 5b |....if (|$dbline[|
|00003280| 24 73 74 61 72 74 5d 20 | 3d 7e 20 6d 27 2e 22 5c |$start] |=~ m'."\|
|00003290| 6e 24 70 61 74 5c 6e 22 | 2e 27 69 29 20 7b 0d 09 |n$pat\n"|.'i) {..|
|000032a0| 09 09 20 20 20 20 69 66 | 20 28 24 65 6d 61 63 73 |..    if| ($emacs|
|000032b0| 29 20 7b 0d 09 09 09 09 | 70 72 69 6e 74 20 4f 55 |) {.....|print OU|
|000032c0| 54 20 22 5c 30 33 32 5c | 30 33 32 24 66 69 6c 65 |T "\032\|032$file|
|000032d0| 6e 61 6d 65 3a 24 73 74 | 61 72 74 3a 30 5c 6e 22 |name:$st|art:0\n"|
|000032e0| 3b 0d 09 09 09 20 20 20 | 20 7d 20 65 6c 73 65 20 |;....   | } else |
|000032f0| 7b 0d 09 09 09 09 70 72 | 69 6e 74 20 4f 55 54 20 |{.....pr|int OUT |
|00003300| 22 24 73 74 61 72 74 3a | 5c 74 22 2c 20 24 64 62 |"$start:|\t", $db|
|00003310| 6c 69 6e 65 5b 24 73 74 | 61 72 74 5d 2c 20 22 5c |line[$st|art], "\|
|00003320| 6e 22 3b 0d 09 09 09 20 | 20 20 20 7d 0d 09 09 09 |n";.... |   }....|
|00003330| 20 20 20 20 6c 61 73 74 | 3b 0d 09 09 09 7d 0d 09 |    last|;....}..|
|00003340| 09 20 20 20 20 7d 20 27 | 3b 0d 09 09 20 20 20 20 |.    } '|;...    |
|00003350| 70 72 69 6e 74 20 4f 55 | 54 20 22 2f 24 70 61 74 |print OU|T "/$pat|
|00003360| 2f 3a 20 6e 6f 74 20 66 | 6f 75 6e 64 5c 6e 22 20 |/: not f|ound\n" |
|00003370| 69 66 20 28 24 73 74 61 | 72 74 20 3d 3d 20 24 65 |if ($sta|rt == $e|
|00003380| 6e 64 29 3b 0d 09 09 20 | 20 20 20 6e 65 78 74 20 |nd);... |   next |
|00003390| 43 4d 44 3b 20 7d 3b 0d | 09 09 24 63 6d 64 20 3d |CMD; };.|..$cmd =|
|000033a0| 7e 20 2f 5e 5c 3f 28 2e | 2a 29 24 2f 20 26 26 20 |~ /^\?(.|*)$/ && |
|000033b0| 64 6f 20 7b 0d 09 09 20 | 20 20 20 24 69 6e 70 61 |do {... |   $inpa|
|000033c0| 74 20 3d 20 24 31 3b 0d | 09 09 20 20 20 20 24 69 |t = $1;.|..    $i|
|000033d0| 6e 70 61 74 20 3d 7e 20 | 73 3a 28 5b 5e 5c 5c 5d |npat =~ |s:([^\\]|
|000033e0| 29 5c 3f 24 3a 24 31 3a | 3b 0d 09 09 20 20 20 20 |)\?$:$1:|;...    |
|000033f0| 69 66 20 28 24 69 6e 70 | 61 74 20 6e 65 20 22 22 |if ($inp|at ne ""|
|00003400| 29 20 7b 0d 09 09 09 65 | 76 61 6c 20 27 24 69 6e |) {....e|val '$in|
|00003410| 70 61 74 20 3d 7e 20 6d | 27 2e 22 5c 6e 24 69 6e |pat =~ m|'."\n$in|
|00003420| 70 61 74 5c 6e 22 3b 09 | 0d 09 09 09 69 66 20 28 |pat\n";.|....if (|
|00003430| 24 40 20 6e 65 20 22 22 | 29 20 7b 0d 09 09 09 20 |$@ ne ""|) {.... |
|00003440| 20 20 20 70 72 69 6e 74 | 20 4f 55 54 20 22 24 40 |   print| OUT "$@|
|00003450| 22 3b 0d 09 09 09 20 20 | 20 20 6e 65 78 74 20 43 |";....  |  next C|
|00003460| 4d 44 3b 0d 09 09 09 7d | 0d 09 09 09 24 70 61 74 |MD;....}|....$pat|
|00003470| 20 3d 20 24 69 6e 70 61 | 74 3b 0d 09 09 20 20 20 | = $inpa|t;...   |
|00003480| 20 7d 0d 09 09 20 20 20 | 20 24 65 6e 64 20 3d 20 | }...   | $end = |
|00003490| 24 73 74 61 72 74 3b 0d | 09 09 20 20 20 20 65 76 |$start;.|..    ev|
|000034a0| 61 6c 20 27 0d 09 09 20 | 20 20 20 66 6f 72 20 28 |al '... |   for (|
|000034b0| 3b 3b 29 20 7b 0d 09 09 | 09 2d 2d 24 73 74 61 72 |;;) {...|.--$star|
|000034c0| 74 3b 0d 09 09 09 24 73 | 74 61 72 74 20 3d 20 24 |t;....$s|tart = $|
|000034d0| 6d 61 78 20 69 66 20 28 | 24 73 74 61 72 74 20 3c |max if (|$start <|
|000034e0| 3d 20 30 29 3b 0d 09 09 | 09 6c 61 73 74 20 69 66 |= 0);...|.last if|
|000034f0| 20 28 24 73 74 61 72 74 | 20 3d 3d 20 24 65 6e 64 | ($start| == $end|
|00003500| 29 3b 0d 09 09 09 69 66 | 20 28 24 64 62 6c 69 6e |);....if| ($dblin|
|00003510| 65 5b 24 73 74 61 72 74 | 5d 20 3d 7e 20 6d 27 2e |e[$start|] =~ m'.|
|00003520| 22 5c 6e 24 70 61 74 5c | 6e 22 2e 27 69 29 20 7b |"\n$pat\|n".'i) {|
|00003530| 0d 09 09 09 20 20 20 20 | 69 66 20 28 24 65 6d 61 |....    |if ($ema|
|00003540| 63 73 29 20 7b 0d 09 09 | 09 09 70 72 69 6e 74 20 |cs) {...|..print |
|00003550| 4f 55 54 20 22 5c 30 33 | 32 5c 30 33 32 24 66 69 |OUT "\03|2\032$fi|
|00003560| 6c 65 6e 61 6d 65 3a 24 | 73 74 61 72 74 3a 30 5c |lename:$|start:0\|
|00003570| 6e 22 3b 0d 09 09 09 20 | 20 20 20 7d 20 65 6c 73 |n";.... |   } els|
|00003580| 65 20 7b 0d 09 09 09 09 | 70 72 69 6e 74 20 4f 55 |e {.....|print OU|
|00003590| 54 20 22 24 73 74 61 72 | 74 3a 5c 74 22 2c 20 24 |T "$star|t:\t", $|
|000035a0| 64 62 6c 69 6e 65 5b 24 | 73 74 61 72 74 5d 2c 20 |dbline[$|start], |
|000035b0| 22 5c 6e 22 3b 0d 09 09 | 09 20 20 20 20 7d 0d 09 |"\n";...|.    }..|
|000035c0| 09 09 20 20 20 20 6c 61 | 73 74 3b 0d 09 09 09 7d |..    la|st;....}|
|000035d0| 0d 09 09 20 20 20 20 7d | 20 27 3b 0d 09 09 20 20 |...    }| ';...  |
|000035e0| 20 20 70 72 69 6e 74 20 | 4f 55 54 20 22 3f 24 70 |  print |OUT "?$p|
|000035f0| 61 74 3f 3a 20 6e 6f 74 | 20 66 6f 75 6e 64 5c 6e |at?: not| found\n|
|00003600| 22 20 69 66 20 28 24 73 | 74 61 72 74 20 3d 3d 20 |" if ($s|tart == |
|00003610| 24 65 6e 64 29 3b 0d 09 | 09 20 20 20 20 6e 65 78 |$end);..|.    nex|
|00003620| 74 20 43 4d 44 3b 20 7d | 3b 0d 09 09 24 63 6d 64 |t CMD; }|;...$cmd|
|00003630| 20 3d 7e 20 2f 5e 21 2b | 5c 73 2a 28 2d 29 3f 28 | =~ /^!+|\s*(-)?(|
|00003640| 5c 64 2b 29 3f 24 2f 20 | 26 26 20 64 6f 20 7b 0d |\d+)?$/ |&& do {.|
|00003650| 09 09 20 20 20 20 70 6f | 70 28 40 68 69 73 74 29 |..    po|p(@hist)|
|00003660| 20 69 66 20 6c 65 6e 67 | 74 68 28 24 63 6d 64 29 | if leng|th($cmd)|
|00003670| 20 3e 20 31 3b 0d 09 09 | 20 20 20 20 24 69 20 3d | > 1;...|    $i =|
|00003680| 20 28 24 31 3f 28 24 23 | 68 69 73 74 2d 28 24 32 | ($1?($#|hist-($2|
|00003690| 3f 24 32 3a 31 29 29 3a | 28 24 32 3f 24 32 3a 24 |?$2:1)):|($2?$2:$|
|000036a0| 23 68 69 73 74 29 29 3b | 0d 09 09 20 20 20 20 24 |#hist));|...    $|
|000036b0| 63 6d 64 20 3d 20 24 68 | 69 73 74 5b 24 69 5d 20 |cmd = $h|ist[$i] |
|000036c0| 2e 20 22 5c 6e 22 3b 0d | 09 09 20 20 20 20 70 72 |. "\n";.|..    pr|
|000036d0| 69 6e 74 20 4f 55 54 20 | 24 63 6d 64 3b 0d 09 09 |int OUT |$cmd;...|
|000036e0| 20 20 20 20 72 65 64 6f | 20 43 4d 44 3b 20 7d 3b |    redo| CMD; };|
|000036f0| 0d 09 09 24 63 6d 64 20 | 3d 7e 20 2f 5e 21 28 2e |...$cmd |=~ /^!(.|
|00003700| 2b 29 24 2f 20 26 26 20 | 64 6f 20 7b 0d 09 09 20 |+)$/ && |do {... |
|00003710| 20 20 20 24 70 61 74 20 | 3d 20 22 5e 24 31 22 3b |   $pat |= "^$1";|
|00003720| 0d 09 09 20 20 20 20 70 | 6f 70 28 40 68 69 73 74 |...    p|op(@hist|
|00003730| 29 20 69 66 20 6c 65 6e | 67 74 68 28 24 63 6d 64 |) if len|gth($cmd|
|00003740| 29 20 3e 20 31 3b 0d 09 | 09 20 20 20 20 66 6f 72 |) > 1;..|.    for|
|00003750| 20 28 24 69 20 3d 20 24 | 23 68 69 73 74 3b 20 24 | ($i = $|#hist; $|
|00003760| 69 3b 20 2d 2d 24 69 29 | 20 7b 0d 09 09 09 6c 61 |i; --$i)| {....la|
|00003770| 73 74 20 69 66 20 24 68 | 69 73 74 5b 24 69 5d 20 |st if $h|ist[$i] |
|00003780| 3d 7e 20 24 70 61 74 3b | 0d 09 09 20 20 20 20 7d |=~ $pat;|...    }|
|00003790| 0d 09 09 20 20 20 20 69 | 66 20 28 21 24 69 29 20 |...    i|f (!$i) |
|000037a0| 7b 0d 09 09 09 70 72 69 | 6e 74 20 4f 55 54 20 22 |{....pri|nt OUT "|
|000037b0| 4e 6f 20 73 75 63 68 20 | 63 6f 6d 6d 61 6e 64 21 |No such |command!|
|000037c0| 5c 6e 5c 6e 22 3b 0d 09 | 09 09 6e 65 78 74 20 43 |\n\n";..|..next C|
|000037d0| 4d 44 3b 0d 09 09 20 20 | 20 20 7d 0d 09 09 20 20 |MD;...  |  }...  |
|000037e0| 20 20 24 63 6d 64 20 3d | 20 24 68 69 73 74 5b 24 |  $cmd =| $hist[$|
|000037f0| 69 5d 20 2e 20 22 5c 6e | 22 3b 0d 09 09 20 20 20 |i] . "\n|";...   |
|00003800| 20 70 72 69 6e 74 20 4f | 55 54 20 24 63 6d 64 3b | print O|UT $cmd;|
|00003810| 0d 09 09 20 20 20 20 72 | 65 64 6f 20 43 4d 44 3b |...    r|edo CMD;|
|00003820| 20 7d 3b 0d 09 09 24 63 | 6d 64 20 3d 7e 20 2f 5e | };...$c|md =~ /^|
|00003830| 48 5c 62 5c 73 2a 28 2d | 28 5c 64 2b 29 29 3f 2f |H\b\s*(-|(\d+))?/|
|00003840| 20 26 26 20 64 6f 20 7b | 0d 09 09 20 20 20 20 24 | && do {|...    $|
|00003850| 65 6e 64 20 3d 20 24 32 | 3f 28 24 23 68 69 73 74 |end = $2|?($#hist|
|00003860| 2d 24 32 29 3a 30 3b 0d | 09 09 20 20 20 20 24 68 |-$2):0;.|..    $h|
|00003870| 69 73 74 20 3d 20 30 20 | 69 66 20 24 68 69 73 74 |ist = 0 |if $hist|
|00003880| 20 3c 20 30 3b 0d 09 09 | 20 20 20 20 66 6f 72 20 | < 0;...|    for |
|00003890| 28 24 69 3d 24 23 68 69 | 73 74 3b 20 24 69 3e 24 |($i=$#hi|st; $i>$|
|000038a0| 65 6e 64 3b 20 24 69 2d | 2d 29 20 7b 0d 09 09 09 |end; $i-|-) {....|
|000038b0| 70 72 69 6e 74 20 4f 55 | 54 20 22 24 69 3a 20 22 |print OU|T "$i: "|
|000038c0| 2c 24 68 69 73 74 5b 24 | 69 5d 2c 22 5c 6e 22 0d |,$hist[$|i],"\n".|
|000038d0| 09 09 09 20 20 20 20 75 | 6e 6c 65 73 73 20 24 68 |...    u|nless $h|
|000038e0| 69 73 74 5b 24 69 5d 20 | 3d 7e 20 2f 5e 2e 3f 24 |ist[$i] |=~ /^.?$|
|000038f0| 2f 3b 0d 09 09 20 20 20 | 20 7d 3b 0d 09 09 20 20 |/;...   | };...  |
|00003900| 20 20 6e 65 78 74 20 43 | 4d 44 3b 20 7d 3b 0d 09 |  next C|MD; };..|
|00003910| 09 24 63 6d 64 20 3d 7e | 20 73 2f 5e 70 28 20 2e |.$cmd =~| s/^p( .|
|00003920| 2a 29 3f 24 2f 70 72 69 | 6e 74 20 44 42 27 4f 55 |*)?$/pri|nt DB'OU|
|00003930| 54 24 31 2f 3b 0d 09 09 | 24 63 6d 64 20 3d 7e 20 |T$1/;...|$cmd =~ |
|00003940| 2f 5e 3d 2f 20 26 26 20 | 64 6f 20 7b 0d 09 09 20 |/^=/ && |do {... |
|00003950| 20 20 20 69 66 20 28 6c | 6f 63 61 6c 28 24 6b 2c |   if (l|ocal($k,|
|00003960| 24 76 29 20 3d 20 28 24 | 63 6d 64 20 3d 7e 20 2f |$v) = ($|cmd =~ /|
|00003970| 5e 3d 5c 73 2a 28 5c 53 | 2b 29 5c 73 2b 28 2e 2a |^=\s*(\S|+)\s+(.*|
|00003980| 29 2f 29 29 20 7b 0d 09 | 09 09 24 61 6c 69 61 73 |)/)) {..|..$alias|
|00003990| 7b 24 6b 7d 3d 22 73 7e | 24 6b 7e 24 76 7e 22 3b |{$k}="s~|$k~$v~";|
|000039a0| 0d 09 09 09 70 72 69 6e | 74 20 4f 55 54 20 22 24 |....prin|t OUT "$|
|000039b0| 6b 20 3d 20 24 76 5c 6e | 22 3b 0d 09 09 20 20 20 |k = $v\n|";...   |
|000039c0| 20 7d 20 65 6c 73 69 66 | 20 28 24 63 6d 64 20 3d | } elsif| ($cmd =|
|000039d0| 7e 20 2f 5e 3d 5c 73 2a | 24 2f 29 20 7b 0d 09 09 |~ /^=\s*|$/) {...|
|000039e0| 09 66 6f 72 65 61 63 68 | 20 24 6b 20 28 73 6f 72 |.foreach| $k (sor|
|000039f0| 74 20 6b 65 79 73 28 25 | 61 6c 69 61 73 29 29 20 |t keys(%|alias)) |
|00003a00| 7b 0d 09 09 09 20 20 20 | 20 69 66 20 28 28 24 76 |{....   | if (($v|
|00003a10| 20 3d 20 24 61 6c 69 61 | 73 7b 24 6b 7d 29 20 3d | = $alia|s{$k}) =|
|00003a20| 7e 20 73 7e 5e 73 5c 7e | 24 6b 5c 7e 28 2e 2a 29 |~ s~^s\~|$k\~(.*)|
|00003a30| 5c 7e 24 7e 24 31 7e 29 | 20 7b 0d 09 09 09 09 70 |\~$~$1~)| {.....p|
|00003a40| 72 69 6e 74 20 4f 55 54 | 20 22 24 6b 20 3d 20 24 |rint OUT| "$k = $|
|00003a50| 76 5c 6e 22 3b 0d 09 09 | 09 20 20 20 20 7d 20 65 |v\n";...|.    } e|
|00003a60| 6c 73 65 20 7b 0d 09 09 | 09 09 70 72 69 6e 74 20 |lse {...|..print |
|00003a70| 4f 55 54 20 22 24 6b 5c | 74 24 61 6c 69 61 73 7b |OUT "$k\|t$alias{|
|00003a80| 24 6b 7d 5c 6e 22 3b 0d | 09 09 09 20 20 20 20 7d |$k}\n";.|...    }|
|00003a90| 3b 0d 09 09 09 7d 3b 0d | 09 09 20 20 20 20 7d 3b |;....};.|..    };|
|00003aa0| 0d 09 09 20 20 20 20 6e | 65 78 74 20 43 4d 44 3b |...    n|ext CMD;|
|00003ab0| 20 7d 3b 0d 09 20 20 20 | 20 7d 0d 09 20 20 20 20 | };..   | }..    |
|00003ac0| 24 65 76 61 6c 61 72 67 | 20 3d 20 24 63 6d 64 3b |$evalarg| = $cmd;|
|00003ad0| 20 26 65 76 61 6c 3b 0d | 09 20 20 20 20 70 72 69 | &eval;.|.    pri|
|00003ae0| 6e 74 20 4f 55 54 20 22 | 5c 6e 22 3b 0d 09 7d 0d |nt OUT "|\n";..}.|
|00003af0| 09 69 66 20 28 24 70 6f | 73 74 29 20 7b 0d 09 20 |.if ($po|st) {.. |
|00003b00| 20 20 20 24 65 76 61 6c | 61 72 67 20 3d 20 24 70 |   $eval|arg = $p|
|00003b10| 6f 73 74 3b 20 26 65 76 | 61 6c 3b 0d 09 7d 0d 20 |ost; &ev|al;..}. |
|00003b20| 20 20 20 7d 0d 20 20 20 | 20 28 24 40 2c 20 24 21 |   }.   | ($@, $!|
|00003b30| 2c 20 24 5b 2c 20 24 2c | 2c 20 24 2f 2c 20 24 5c |, $[, $,|, $/, $\|
|00003b40| 29 20 3d 20 40 73 61 76 | 65 64 3b 0d 7d 0d 0d 73 |) = @sav|ed;.}..s|
|00003b50| 75 62 20 73 61 76 65 20 | 7b 0d 20 20 20 20 40 73 |ub save |{.    @s|
|00003b60| 61 76 65 64 20 3d 20 28 | 24 40 2c 20 24 21 2c 20 |aved = (|$@, $!, |
|00003b70| 24 5b 2c 20 24 2c 2c 20 | 24 2f 2c 20 24 5c 29 3b |$[, $,, |$/, $\);|
|00003b80| 0d 20 20 20 20 24 5b 20 | 3d 20 30 3b 20 24 2c 20 |.    $[ |= 0; $, |
|00003b90| 3d 20 22 22 3b 20 24 2f | 20 3d 20 22 5c 6e 22 3b |= ""; $/| = "\n";|
|00003ba0| 20 24 5c 20 3d 20 22 22 | 3b 0d 7d 0d 0d 23 20 54 | $\ = ""|;.}..# T|
|00003bb0| 68 65 20 66 6f 6c 6c 6f | 77 69 6e 67 20 74 61 6b |he follo|wing tak|
|00003bc0| 65 73 20 69 74 73 20 61 | 72 67 75 6d 65 6e 74 20 |es its a|rgument |
|00003bd0| 76 69 61 20 24 65 76 61 | 6c 61 72 67 20 74 6f 20 |via $eva|larg to |
|00003be0| 70 72 65 73 65 72 76 65 | 20 63 75 72 72 65 6e 74 |preserve| current|
|00003bf0| 20 40 5f 0d 0d 73 75 62 | 20 65 76 61 6c 20 7b 0d | @_..sub| eval {.|
|00003c00| 20 20 20 20 65 76 61 6c | 20 22 24 75 73 65 72 63 |    eval| "$userc|
|00003c10| 6f 6e 74 65 78 74 20 24 | 65 76 61 6c 61 72 67 3b |ontext $|evalarg;|
|00003c20| 20 26 44 42 27 73 61 76 | 65 22 3b 0d 20 20 20 20 | &DB'sav|e";.    |
|00003c30| 70 72 69 6e 74 20 4f 55 | 54 20 24 40 3b 0d 7d 0d |print OU|T $@;.}.|
|00003c40| 0d 73 75 62 20 61 63 74 | 69 6f 6e 20 7b 0d 20 20 |.sub act|ion {.  |
|00003c50| 20 20 6c 6f 63 61 6c 28 | 24 61 63 74 69 6f 6e 29 |  local(|$action)|
|00003c60| 20 3d 20 40 5f 3b 0d 20 | 20 20 20 77 68 69 6c 65 | = @_;. |   while|
|00003c70| 20 28 24 61 63 74 69 6f | 6e 20 3d 7e 20 73 2f 5c | ($actio|n =~ s/\|
|00003c80| 5c 24 2f 2f 29 20 7b 0d | 09 70 72 69 6e 74 20 4f |\$//) {.|.print O|
|00003c90| 55 54 20 22 2b 20 22 3b | 0d 09 24 61 63 74 69 6f |UT "+ ";|..$actio|
|00003ca0| 6e 20 2e 3d 20 26 67 65 | 74 73 3b 0d 20 20 20 20 |n .= &ge|ts;.    |
|00003cb0| 7d 0d 20 20 20 20 24 61 | 63 74 69 6f 6e 3b 0d 7d |}.    $a|ction;.}|
|00003cc0| 0d 0d 73 75 62 20 67 65 | 74 73 20 7b 0d 20 20 20 |..sub ge|ts {.   |
|00003cd0| 20 6c 6f 63 61 6c 28 24 | 2e 29 3b 0d 20 20 20 20 | local($|.);.    |
|00003ce0| 3c 49 4e 3e 3b 0d 7d 0d | 0d 73 75 62 20 63 61 74 |<IN>;.}.|.sub cat|
|00003cf0| 63 68 20 7b 0d 20 20 20 | 20 24 73 69 67 6e 61 6c |ch {.   | $signal|
|00003d00| 20 3d 20 31 3b 0d 7d 0d | 0d 73 75 62 20 73 75 62 | = 1;.}.|.sub sub|
|00003d10| 20 7b 0d 20 20 20 20 70 | 75 73 68 28 40 73 74 61 | {.    p|ush(@sta|
|00003d20| 63 6b 2c 20 24 73 69 6e | 67 6c 65 29 3b 0d 20 20 |ck, $sin|gle);.  |
|00003d30| 20 20 24 73 69 6e 67 6c | 65 20 26 3d 20 31 3b 0d |  $singl|e &= 1;.|
|00003d40| 20 20 20 20 24 73 69 6e | 67 6c 65 20 7c 3d 20 34 |    $sin|gle |= 4|
|00003d50| 20 69 66 20 24 23 73 74 | 61 63 6b 20 3d 3d 20 24 | if $#st|ack == $|
|00003d60| 64 65 65 70 3b 0d 20 20 | 20 20 69 66 20 28 77 61 |deep;.  |  if (wa|
|00003d70| 6e 74 61 72 72 61 79 29 | 20 7b 0d 09 40 69 20 3d |ntarray)| {..@i =|
|00003d80| 20 26 24 73 75 62 3b 0d | 09 24 73 69 6e 67 6c 65 | &$sub;.|.$single|
|00003d90| 20 7c 3d 20 70 6f 70 28 | 40 73 74 61 63 6b 29 3b | |= pop(|@stack);|
|00003da0| 0d 09 40 69 3b 0d 20 20 | 20 20 7d 0d 20 20 20 20 |..@i;.  |  }.    |
|00003db0| 65 6c 73 65 20 7b 0d 09 | 24 69 20 3d 20 26 24 73 |else {..|$i = &$s|
|00003dc0| 75 62 3b 0d 09 24 73 69 | 6e 67 6c 65 20 7c 3d 20 |ub;..$si|ngle |= |
|00003dd0| 70 6f 70 28 40 73 74 61 | 63 6b 29 3b 0d 09 24 69 |pop(@sta|ck);..$i|
|00003de0| 3b 0d 20 20 20 20 7d 0d | 7d 0d 0d 24 73 69 6e 67 |;.    }.|}..$sing|
|00003df0| 6c 65 20 3d 20 31 3b 09 | 09 09 23 20 73 6f 20 69 |le = 1;.|..# so i|
|00003e00| 74 20 73 74 6f 70 73 20 | 6f 6e 20 66 69 72 73 74 |t stops |on first|
|00003e10| 20 65 78 65 63 75 74 61 | 62 6c 65 20 73 74 61 74 | executa|ble stat|
|00003e20| 65 6d 65 6e 74 0d 40 68 | 69 73 74 20 3d 20 28 27 |ement.@h|ist = ('|
|00003e30| 3f 27 29 3b 0d 24 53 49 | 47 7b 27 49 4e 54 27 7d |?');.$SI|G{'INT'}|
|00003e40| 20 3d 20 22 44 42 27 63 | 61 74 63 68 22 3b 0d 24 | = "DB'c|atch";.$|
|00003e50| 64 65 65 70 20 3d 20 31 | 30 30 3b 09 09 23 20 77 |deep = 1|00;..# w|
|00003e60| 61 72 6e 69 6e 67 20 69 | 66 20 73 74 61 63 6b 20 |arning i|f stack |
|00003e70| 67 65 74 73 20 74 68 69 | 73 20 64 65 65 70 0d 24 |gets thi|s deep.$|
|00003e80| 77 69 6e 64 6f 77 20 3d | 20 31 30 3b 0d 24 70 72 |window =| 10;.$pr|
|00003e90| 65 76 69 65 77 20 3d 20 | 33 3b 0d 0d 40 73 74 61 |eview = |3;..@sta|
|00003ea0| 63 6b 20 3d 20 28 30 29 | 3b 0d 40 41 52 47 53 20 |ck = (0)|;.@ARGS |
|00003eb0| 3d 20 40 41 52 47 56 3b | 0d 66 6f 72 20 28 40 61 |= @ARGV;|.for (@a|
|00003ec0| 72 67 73 29 20 7b 0d 20 | 20 20 20 73 2f 27 2f 5c |rgs) {. |   s/'/\|
|00003ed0| 5c 27 2f 67 3b 0d 20 20 | 20 20 73 2f 28 2e 2a 29 |\'/g;.  |  s/(.*)|
|00003ee0| 2f 27 24 31 27 2f 20 75 | 6e 6c 65 73 73 20 2f 5e |/'$1'/ u|nless /^|
|00003ef0| 2d 3f 5b 5c 64 2e 5d 2b | 24 2f 3b 0d 7d 0d 0d 69 |-?[\d.]+|$/;.}..i|
|00003f00| 66 20 28 2d 66 20 24 72 | 63 66 69 6c 65 29 20 7b |f (-f $r|cfile) {|
|00003f10| 0d 20 20 20 20 64 6f 20 | 27 3a 24 72 63 66 69 6c |.    do |':$rcfil|
|00003f20| 65 27 3b 0d 7d 0d 65 6c | 73 69 66 20 28 2d 66 20 |e';.}.el|sif (-f |
|00003f30| 22 24 45 4e 56 7b 27 4d | 50 57 27 7d 3a 24 72 63 |"$ENV{'M|PW'}:$rc|
|00003f40| 66 69 6c 65 22 29 20 7b | 0d 20 20 20 20 64 6f 20 |file") {|.    do |
|00003f50| 22 24 45 4e 56 7b 27 4d | 50 57 27 7d 3a 24 72 63 |"$ENV{'M|PW'}:$rc|
|00003f60| 66 69 6c 65 22 3b 0d 7d | 0d 65 6c 73 69 66 20 28 |file";.}|.elsif (|
|00003f70| 2d 66 20 22 24 45 4e 56 | 7b 27 48 4f 4d 45 27 7d |-f "$ENV|{'HOME'}|
|00003f80| 3a 24 72 63 66 69 6c 65 | 22 29 20 7b 0d 20 20 20 |:$rcfile|") {.   |
|00003f90| 20 64 6f 20 22 24 45 4e | 56 7b 27 48 4f 4d 45 27 | do "$EN|V{'HOME'|
|00003fa0| 7d 3a 24 72 63 66 69 6c | 65 22 3b 0d 7d 0d 0d 31 |}:$rcfil|e";.}..1|
|00003fb0| 3b 0d 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |;.......|........|
|00003fc0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003fd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003fe0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003ff0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004000| 00 00 01 00 00 00 01 6e | 00 00 00 6e 00 00 00 3e |.......n|...n...>|
|00004010| 69 6c 65 6e 61 6d 65 3a | 24 69 3a 30 5c 6e 22 3b |ilename:|$i:0\n";|
|00004020| 0d 09 09 09 24 69 20 3d | 20 24 65 6e 64 3b 0d 09 |....$i =| $end;..|
|00004030| 0c 6d 61 63 70 65 72 6c | 64 62 2e 70 6c 22 02 00 |.macperl|db.pl"..|
|00004040| 00 00 54 45 58 54 4d 50 | 53 20 01 00 00 00 00 00 |..TEXTMP|S ......|
|00004050| 00 00 54 45 58 54 4d 50 | 53 20 01 00 00 00 00 00 |..TEXTMP|S ......|
|00004060| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004070| 00 00 a8 ee 28 f7 00 00 | 3f 32 00 00 01 ac 24 69 |....(...|?2....$i|
|00004080| 5d 3b 0d 09 09 09 20 20 | 20 20 6c 61 73 74 20 69 |];....  |  last i|
|00004090| 66 20 24 73 69 67 6e 61 | 6c 3b 0d 09 09 09 7d 0d |f $signa|l;....}.|
|000040a0| 09 09 20 20 20 20 7d 0d | 09 09 20 20 20 20 24 73 |..    }.|..    $s|
|000040b0| 74 61 72 74 20 3d 20 24 | 69 3b 09 23 20 72 65 6d |tart = $|i;.# rem|
|000040c0| 65 6d 62 65 72 20 69 6e | 20 63 61 73 65 20 74 68 |ember in| case th|
|000040d0| 65 79 20 77 61 6e 74 20 | 6d 6f 72 65 0d 09 09 20 |ey want |more... |
|000040e0| 20 20 20 24 73 74 61 72 | 74 20 3d 20 24 6d 61 78 |   $star|t = $max|
|000040f0| 20 69 66 20 24 73 74 61 | 72 74 20 3e 20 24 6d 61 | if $sta|rt > $ma|
|00004100| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 00 00 00 |...H..Mo|naco....|
|00004110| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004120| 00 00 00 00 00 00 00 06 | 00 03 00 64 00 1c 01 dd |........|...d....|
|00004130| 02 3d 00 64 00 1c 01 dd | 02 3d a8 ee 28 fc 00 00 |.=.d....|.=..(...|
|00004140| 3c 7a 00 00 3c 80 00 00 | 3c 66 01 00 00 00 00 1e |<z..<...|<f......|
|00004150| 00 64 00 1c 01 dd 02 3d | 00 64 00 1c 01 dd 02 3d |.d.....=|.d.....=|
|00004160| 00 00 3c 66 00 00 00 00 | 00 00 00 00 00 00 00 00 |..<f....|........|
|00004170| 01 00 00 00 01 6e 00 00 | 00 6e 00 00 00 3e 00 3c |.....n..|.n...>.<|
|00004180| 15 8c 16 c6 00 00 00 1c | 00 3e 00 00 4d 50 53 52 |........|.>..MPSR|
|00004190| 00 01 00 0a 03 ed ff ff | 00 00 00 00 00 00 00 00 |........|........|
|000041a0| 03 f0 ff ff 00 00 00 4c | 00 3e 6c 4c 00 00 00 00 |.......L|.>lL....|
|000041b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000041c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000041d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000041e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000041f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+